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

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

Решение:

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

program While19;

var

N, Rez :Integer;

begin

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

Readln(N);

Rez:=0;

while N>0 do

begin

Rez:=Rez*10+N mod 10;

N:=N div 10;

end;

Writeln(Rez);

end.

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

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

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

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