Написать программу которая задумывает число и печатает его наоборот. ( пример: 341 и 143) в паскаль.
Написать программу которая задумывает число и печатает его наоборот. ( пример: 341 и 143) в паскаль.
Гость
Ответ(ы) на вопрос:
Гостьa: = random(500)
Как перевернуть хз
Гостьvar m,p:longint;
i:integer;
begin
writeln ('Введите натуральное число не более 999999999');
repeat
readln(m);
until(m>0)and(m<=999999999);
p:=0;
while m>0 do
begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end; write(p);
readln
end.
Не нашли ответ?
Похожие вопросы