Question

Ввести свою фамилию. Вывести её горизонтально с промежутком между
буквами (паскаль) СРОЧНО!!!

Answer 1

Ответ:

Это для Pascal ABC:

var s:string;

i:integer;

begin

write('Введите свою фамилию: ');

readln(s);

for i:=1 to length(s) do

write(s[i],' ');

end.

Это для Pascal ABC.NET:

begin

var s:=ReadString('Введите свою фамилию: ');

for var i:=1 to s.Length do

write(s[i],' ');

end.