Ответы
Ответ дал:
0
Program naoborot;
Uses crt;
var n,a,b:integer;
Begin
ClrScr;
write('введите натуральное число: ');
readLn(X);
N:=X;
while N>=1 do
begin
a:=N mod 10;
N:=N div 10;
b:=b*10+a;
end;
write('Прочтение цифр числа справа налево: ',b)
End.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад