написать программу в паскале которая вставит между буквами введенного слова пробел

Question

Информатика

Вивиана

28 октября, 09:06

написать программу в паскале которая вставит между буквами введенного слова пробел

+1

Ответы (2)

Знаете ответ?

Фридрих · Answer 1

var

s, s_new: string;

i: integer;

begin

read (s) ;

for i : = 1 to length (s) do

s_new : = s_new + s[i] + ' ';

writeln (s_new) ;

end.

Борис · Answer 2

Program BlankWord;

Uses Crt;

var s1:string;

l:integer;

begin

clrscr;

write ('Введите Слово:') ;

readln (s1) ;

l=length (s1) ;

for i:=l downto 1 do

if (i mod 2 = 0) then

Insert (' ', s1, i) ;

writeln (s1) ;

readkey;

end.