ПОМОГИТЕ 5,6,7 можно хотя бы одно, но помогите
ПОМОГИТЕ 5,6,7 можно хотя бы одно, но помогите
Гость
Ответ(ы) на вопрос:
Гость Задание 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.
Не нашли ответ?
Похожие вопросы