Ответ(ы) на вопрос:
Гость Var
i, s: integer;
begin
s := 0;
i := 5;
repeat
s := s + i;
i := i + 6;
until i > 131;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы