Решаем задачи Абрамян на Паскале. While17

While17. Дано целое число $$N$$ ($$> 0$$). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

Решение:

program While17;
var
  N:Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  while N>0 do
  begin
   Writeln(N mod 10);
   N:=N div 10;
  end;
end.

program While17;

var

N:Integer;

begin

Write('Введите число N: ');

Readln(N);

while N>0 do

begin

Writeln(N mod 10);

N:=N div 10;

end;

end.

Другие задачи из раздела While можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. While17

Комментарии:

Добавить комментарий Отменить ответ