Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.

anikeevae anikeevae    2   09.02.2021 20:29    13

Ответы
Мэй15 Мэй15  11.03.2021 20:34

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика