Регистрация
leratyurina
01.02.2022 17:31
Информатика
Есть ответ 👍

Магистры в информатике есть ответьте

151
206
Посмотреть ответы 1

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

ighjkhh
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. не помешает.

Популярно: Информатика