Вопрос школьника по предмету Информатика
Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.
Входные данные
Входная строка содержит неотрицательное число N .
Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.
Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.
Ответ учителя по предмету Информатика
Без рекурсии:
Procedure ABC(N:integer);
Var
C:integer;
Begin
C:=0;
While N>0 do
Begin
C:=C*10+N mod 10;
N:=N div 10
End;
While C>0 do
Begin
WriteLn(C mod 10);
C:=C div 10
End
End;
Var
N:integer;
Begin
Write(‘N = ‘);ReadLn(N);
ABC(N);
End.
С рекурсией:
Procedure ABC(N:integer);
Begin
if N>0 then
Begin
ABC(N div 10);
WriteLn(N mod 10);
End
End;
Var N:integer;
Begin
Write(‘N = ‘);ReadLn(N);
ABC(N);
End.
Похожие вопросы от пользователей
to be rich in
to be proud of
to be tired of
to be full of
to be famous for
to be different from
to be found
to look at
to look out
to look for