Var k,s : integer; begin s: =0 k: =0 while k < 30 do begin k: =k+3; s: =s+k; end; write(s); end.

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