Регистрация
nazarm378
12.10.2020 17:38
Информатика
Есть ответ 👍

Реферат на тему развития языка программирования си​

109
338
Посмотреть ответы 1

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

vul654
vul654
4,7(60 оценок)
// pascalabc.net (версия 3.2, сборка 1363) const   rm = 'ем'; var   c, n: char;   seq: boolean : = false;   s: string : = 'земля - планета солнечной системы'; begin   writeln(s);   for var i : = 1 to (length(s) -1) do   begin       c : = s[i];       n : = s[i+1];       if seq = true then       begin           seq : = false;           continue;       end;       if (c = rm[1]) and (n = rm[2]) then       begin           seq : = true;           continue;       end       else       begin           seq : = false;           write(c);       end;   end;   write(s[length(s)]); end.

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