Question

ПОМОГИТЕ 5,6,7 можно хотя бы одно, но помогите

Answer 1

Задание 5.
var
  i, s: integer;


begin
  s := 0;
  i := 5;
  repeat
    s := s + i;
    i := i + 6;
  until i > 131;
  writeln(s);
end.


Задание 6.
var
  i, s: integer;


begin
  s := 0;
  for i := 26 to 47 do
    s := s + i * i;
  writeln(s);
end.


Задание 7.
var
  i, s, p: integer;


begin
  s := 0;
  p := 1;
  for i := 20 to 40 do
  begin
    if i mod 2 <> 0 then
      s := s + i
    else if i mod 6 = 0 then
      p := p * i;
  end;
  writeln(s, ' ', p);
end.