Question

Составить программу вывода на экран суммы удвоенных четных чисел из диапазона от 3 до 34 (Pascal ABC) СРОЧНО!!!!!!!!!!!!!!!!!!

Answer 1

var

k, s: integer;

begin

s:=0;

for k:=3 to 34 do

if k mod 2= 0 then

s:= s+2*k;

writeln(s);

end.

Answer 2

Конечно, вот программа на Pascal ABC, которая выводит на экран сумму удвоенных четных чисел в диапазоне от 3 до 34:

pascalCopy code
program SumOfDoubledEvenNumbers;

var
  i, sum: integer;

begin
  sum := 0;

  for i := 3 to 34 do
  begin
    if (i mod 2 = 0) then
    begin
      sum := sum + (i * 2);
    end;
  end;

  writeln('Сумма удвоенных четных чисел от 3 до 34: ', sum);

  readln;
end.

Программа начинает суммирование удвоенных четных чисел с 3 и заканчивает на 34. Она использует оператор цикла for, чтобы перебирать числа в этом диапазоне, и проверяет, является ли текущее число четным с помощью оператора mod. Если число четное, оно удваивается и добавляется к сумме. Наконец, программа выводит результат на экран.