Кирилл
6 год назад
Выведите число, полученное при прочтении цифр данного числа справа налево.
Вводится четырехзначное число. Паскаль абс нет
Пример 1
Ввод Вывод
1234 4321
ОТВЕТЫ
Флавий
Aug 2, 2019
Var n,m:integer;
begin
write(n = );
readln(n);
m:=0;
while ngt;0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
writeln(m = ,m);
end.
Пример:
n = 1234
m = 4321
begin
write(n = );
readln(n);
m:=0;
while ngt;0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
writeln(m = ,m);
end.
Пример:
n = 1234
m = 4321
269
Смежные вопросы:
