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

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

1

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2013-03-15T18:39:16+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.