Задание:
Ребят, помогите, пожалуйста. Нужно написать на паскале программку, с помощью цикла while: Вывести на экран все целые числа из диапазона отA до B (A <= B), окончивающиеся на цифру X
Решение:
var A,B,X,i: integer; begin readln (A,B,X); i: =A; while (i <= B) do if (i mod 10=X) then writeln (i) end.
Знаете другой ответ?