Question

Пожалуйста, помогите: Составить программу паскаль для нахождения суммы двузначных четных чисел.

Answer 1

Var 
a,s:integer;
begin
a:=9;
s:=0;
while a<99 do
begin
inc(a);
if (a mod 2 = 0) then
s:=s+a;
end;
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая находит сумму двузначных четных чисел:

program SumOfEvenNumbers;

var
  number, sum: integer;

begin
  sum := 0;
  
  for number := 10 to 99 do
  begin
    if (number mod 2 = 0) then // проверяем, является ли число четным
    begin
      sum := sum + number; // добавляем число к сумме
    end;
  end;
  
  writeln('Сумма двузначных четных чисел: ', sum);
end.

В этой программе мы используем переменные `number` и `sum`. Перемен