Кузьма
6 год назад
Помогите решить Паскаль задачу
№5
ОТВЕТЫ
Tretyakov
Aug 2, 2019
Var
i, s: integer;
begin
s := 0;
i := 5;
repeat
s := s + i;
i := i + 6;
until i gt; 131;
writeln(s);
end.
i, s: integer;
begin
s := 0;
i := 5;
repeat
s := s + i;
i := i + 6;
until i gt; 131;
writeln(s);
end.
247
Смежные вопросы:
