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

Question

Информатика

Владан

11 апреля, 18:03

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

+4

Ответы (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