Написать программу которая задумывает число и печатает его наоборот. (пример: 341 и 143) в паскаль.

Question

Информатика

Томуля

2 сентября, 18:41

Написать программу которая задумывает число и печатает его наоборот. (пример: 341 и 143) в паскаль.

+5

Ответы (2)

Знаете ответ?

Фаня · Answer 1

A: = random (500)

Как перевернуть хз

Настас · Answer 2

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.