Написать программу в паскале которая вставит между буквами введенного слова пробел
Написать программу в паскале которая вставит между буквами введенного слова пробел
Гость
Ответ(ы) на вопрос:
Гость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.
Гость 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.
Не нашли ответ?
Похожие вопросы