Question

Задание 1. Дана программа нахождения суммы и произведения первых 10-и натуральных чисел Составьте программу нахождения суммы и произведения первых 20-и четных чисел. program pr_1; var i, s, p: integer; begin s:=0; p:=1; for i:=1 to 10 do begin s:=s+i; p:=p*i end; writeln ('сумма чисел равна ', s); writeln ('произведение чисел равно ', p) end. program pr_2; var i, s, p: integer; begin s:=0; p:=1; i:=1; while i<=10 do begin s:=s+i; p:=p*i; i:=i+1 end; writeln ('сумма чисел равна ', s); writeln ('произведение чисел равно ', p) end.

Answer 1

//Pascal с циклом for
var i, s: integer;
p: real;
begin
s:=0;
p:=1;
for i:=1 to 20 do
if i mod 2 = 0 then
begin
  s:=s+i;
  p:=p*i;
end;
writeln('Сумма четных чисел: ', s);
writeln('Произведение четных чисел: ', p);
end.

//С циклом while
var i, s: integer;
p: real;
begin
s := 0;
p := 1;
i := 1;
while i <= 20 do
begin
  if i mod 2 = 0 then
  begin
  s:=s+i;
  p:=p*i;
  end;
  i := i + 1;
end;
writeln('Сумма четных чисел: ', s);
writeln('Произведение четных чисел: ', p);
end.

Answer 2

Конечно, вот программа для нахождения суммы и произведения первых 20 четных чисел:

program pr_3;
var
  i, s, p: integer;
begin
  s := 0;
  p := 1;
  for i := 1 to 20 do
  begin
    s := s + (2 * i); // находим сумму четных чисел
    p := p * (2 * i); // находим произведение четных чисел
  end;
  writeln('Сумма четных чисел равна ', s);
  writeln('Произведение четных чисел равно ', p);
end.

Эта программа использует цикл `for`, который проходит через первые 20 чисел (так как четные числа последовательны идут через каждые два). В каждой итерации удваивается значение `i`, чтобы получить четное число, и затем это число добавляется к сумме (`s`) и перемножается с произведением (`p`).