Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.
Answers & Comments
lenyashastin
Решение:var a,b,c: integer ;beginwriteln ('Введите число:');read (a);b:=0;while a>0 do beginb:=b*10;b:=b + (a mod 10);a:=a div 10;end;while b>0 do beginc:=b mod 10;b:=b div 10;writeln (c, ' ');end;end.
Answers & Comments