1.составить программу которая в введенном тексте удаляет пробелы 2.составить программу которая в ведённом тексте после пробелов ставит две буквы к 3.составить прогу которая находит индекс последней запятой в введенном тексте

291

491

Посмотреть ответы 2

Ответы на вопрос:

ighjkhh

Информатика

4,6(15 оценок)

Var a, b, c, i: integer; s: string; begin read (s); for i: =1 to length(s) do if s[i]=' ' then delete(s,i,1); write (s); end.var a, b, c, i: integer; s, k: string; begin read (s); k: ='kk'; for i: =1 to length(s) do if s[i]=' ' then insert(k,s,i+1); write (s); end. var a, b, c, i: integer; s: string; begin read (s); for i: =1 to length(s) do if s[i]=',' then a: =i; write (a); end. не помешает.