Предмет: Информатика,
автор: yuliyagane
Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.
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.
Похожие вопросы
Предмет: Алгебра,
автор: semenovmisha03
Предмет: Математика,
автор: vikaa15
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: Shinji024