Паскаль!!!
нужно, чтобы каждая цифра числа выводилась в столбик
например 4758
4
7
5
8
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
s:string;
i:integer;
begin
Write(Введите число: ); Readln(s);
for i:=1 to Length(s) do Writeln(s[i])
end.
Тестовое решение:
Введите число: 4758
4
7
5
8
А это - современный вариант:
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
ReadlnString(Введите число:).Println(NewLine)
end.
Тестовое решение:
Введите число: 4758
4
7
5
8
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
