Написать программу в которой задано целое число n и выводится каждая его цифра в столбец. На ABC.Pascal
Ответы
Ответ дал:
0
var n,k:integer;
begin
write('n='); readln(n);
while n<>0 do
begin
writeln(n mod 10);
n:=n div 10;
end;
end.
Пример:
n=12756
6
5
7
2
1
begin
write('n='); readln(n);
while n<>0 do
begin
writeln(n mod 10);
n:=n div 10;
end;
end.
Пример:
n=12756
6
5
7
2
1
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад