Question

Ребят, помогите, пожалуйста.

Нужно написать на паскале программку, с помощью цикла while: Вывести на экран все целые числа из диапазона от A до B (A<=B), окончивающиеся на цифру X

Answer 1

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.