Вопрос школьника по предмету Информатика
Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.
Входные данные
Входная строка содержит неотрицательное число 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.
Похожие вопросы от пользователей
8х +11целых 2/11= 15
3) 18 — 2х =16целых 3/4
4) 4х- 19целых 3/5=23
5) (х-5 целых 7/12):25=7/75
6 ) (8целых 4/9-х):20=7/40
7) 36: (х+11целых4/5 )=1целая 17/19
8) 44:(х- 9 целых 3/4)= 1 целая 9/13
Два автобуса вышли одновременно из пункта А в пункт В. Скорость одного автобуса 60 км/ч, а скорость второго составляет 125% скорости пераого. Какое расстояние будет между автобусами через 2,4ч после их выхода из пункта А?