Глазенап
6 год назад
Написать программу которая задумывает число и печатает его наоборот. ( пример: 341 и 143) в паскаль.
ОТВЕТЫ
Mefodiy
Jul 25, 2019
var m,p:longint;
i:integer;
begin
writeln (Введите натуральное число не более 999999999);
repeat
readln(m);
until(mgt;0)and(mlt;=999999999);
p:=0;
while mgt;0 do
begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end; write(p);
readln
end.
i:integer;
begin
writeln (Введите натуральное число не более 999999999);
repeat
readln(m);
until(mgt;0)and(mlt;=999999999);
p:=0;
while mgt;0 do
begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end; write(p);
readln
end.
A: = random(500)
Как перевернуть хз
Как перевернуть хз
58
