
Mokegrivv
5 год назад
Напишите программу, которая выводит на экран все цифры числа, начиная с первой.Входные данныеВходная строка содержит натуральное число N .Выходные данныеПрограмма должна вывести все цифры введённого числа в одной строке, начиная с первой. Цифры отделяются пробелами.Примерывходные данные123выходные данные1 2 3На паскале.
ОТВЕТЫ

Антон
Oct 24, 2020
Можно так:
Var S:string;
i:integer;
Begin
Read(S);
For i:= 1 to Length(S) do
Write(S[i],' ')
End.
И так:
Var A,B:integer;
Begin
Read(A);
B:=0;
While A<>0 do
Begin
B:=B*10+(A mod 10);
A:= A div 10
End;
While B<>0 do
Begin
Write(B mod 10,' ');
B:=B div 10
End;
End.
Var S:string;
i:integer;
Begin
Read(S);
For i:= 1 to Length(S) do
Write(S[i],' ')
End.
И так:
Var A,B:integer;
Begin
Read(A);
B:=0;
While A<>0 do
Begin
B:=B*10+(A mod 10);
A:= A div 10
End;
While B<>0 do
Begin
Write(B mod 10,' ');
B:=B div 10
End;
End.
70
Смежные вопросы: