Выведите число, полученное при прочтении цифр данного числа справа налево. вводится четырехзначное число. паскаль абс нет пример 1 ввод вывод 1234 4321

irinalove2 irinalove2    3   11.08.2019 13:00    3

Ответы
vasiapasi17 vasiapasi17  04.10.2020 11:20
Var n,m:integer;
begin
write('n = ');
readln(n);
m:=0;
while n>0 do
 begin
 m:=m*10+n mod 10;
 n:=n div 10;
 end;
writeln('m = ',m);
end.

Пример:
n = 1234
m = 4321
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика