Информатика: Var s,k: integer; begin s: =20; for k: =-45 to 43 do s: =s-k; writeln(s) end.

саят17

01.05.2023 11:08

Информатика

Есть ответ 👍

Var s,k: integer; begin s: =20; for k: =-45 to 43 do s: =s-k; writeln(s) end.

224

393

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

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

RUSsamir

Информатика

4,5(79 оценок)

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var sogl: ='бвгджзйклмнпрстфхцчшщ'; var s: =readlnstring('> ').tolower; s.where(c-> pos(c,sogl)> 0).distinct.sorted.println; end. пример > а роза упала на апу азора злнпр