Pascal.
Составить программу.
Найти сумму 12 натуральных чисел кратных 22.

Предыдущий
вопрос Следующий
вопрос

program SumOfMultiplesOf22;

var
i, count, sum: integer;

begin
count := 0;
sum := 0;

for i := 1 to 100 do
begin
if (i mod 22 = 0) then
begin
sum := sum + i;
count := count + 1;
end;

end;

writeln('Сумма 12 натуральных чисел, кратных 22, равна ', sum);
end.