Var s,k: integer; begin s : = 100; for k : = 2 to 7do s : = s + 1; writeln(s); end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку