Предмет: Информатика,
автор: teylor1momsen
While17. Дано целое число N (> 0). Используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой(разряда единиц). (Pascal ABC)
Ответы
Автор ответа:
0
var
n, x, a: integer;
begin
write('Введите число: ' );
readln(n);
while (n > 0 ) do
begin
a := n mod 10;
x := x * 10 + a;
n := n div 10;
end;
writeln('Ответ: ', x);
end.
n, x, a: integer;
begin
write('Введите число: ' );
readln(n);
while (n > 0 ) do
begin
a := n mod 10;
x := x * 10 + a;
n := n div 10;
end;
writeln('Ответ: ', x);
end.
Похожие вопросы
Предмет: Математика,
автор: uspanovaelmira8455
Предмет: География,
автор: mashakurotsapova
Предмет: География,
автор: shashovavika
Предмет: Математика,
автор: vikontessa1126
Предмет: Математика,
автор: karishka1212