Написать программу (PascalABC), которая получает на вход строку, а на выходе пишет каждый символ строки в "столбик"

Question

Информатика

Вишеслав

12 января, 19:43

Написать программу (PascalABC), которая получает на вход строку, а на выходе пишет каждый символ строки в "столбик"

+3

Ответы (1)

Знаете ответ на вопрос?

Базылина · Answer 1

var s:string; i:integer;

begin

writeln ('Введите строку:') ;

readln (s) ;

for i:=1 to length (s) do writeln (s[i]) ;

end.

Пример:

Введите строку:

primer

p

r

i

m

e

r