Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.
lenyashastin:
Числа задаются с клавиатуры?
Ответы
Ответ дал:
0
Решение:
var a,b,c: integer ;
begin
writeln ('Введите число:');
read (a);
b:=0;
while a>0 do begin
b:=b*10;
b:=b + (a mod 10);
a:=a div 10;
end;
while b>0 do begin
c:=b mod 10;
b:=b div 10;
writeln (c, ' ');
end;
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад