program summa

Ответ от .[гуру]
Для решения задачи на языке Паскаль необходимо использовать цикл для перебора чисел от 2 до 20 и условный оператор для проверки четности.program summa;
var
i, k, sum: integer;
begin
k := 0;
sum := 0;
for i := 2 to 20 do
begin
if i mod 2 = 0 then
begin
k := k + 1;
sum := sum + i;
end;
end;
writeln('Количество четных чисел: ', k);
writeln('Сумма четных чисел: ', sum);
end. Переменная k здесь отвечает за подсчет количества найденных четных чисел, а переменная sum накапливает их общую сумму. Цикл for последовательно проверяет все значения в заданном диапазоне. Условие i mod 2 = 0 определяет четность числа путем проверки остатка от деления на два. После завершения цикла программа выводит оба корректных результата на экран.