Question

НУ ПОМОГИТЕ, ПРОШУ, УЖЕ В КОТОРЫЙ РАЗ СПРАШИВАЮ, СДОХНУ УЖЕ ОТ БЕЗЫСХОДНОСТИ НАД ЭТИМ ЗАДАНИЕМ
СРОЧНО!!! ПОМОГИТЕ, УМОЛЯЮ! И ПРОШУ, ПОЖАЛУЙСТА, С ОБЪЯСНЕНИЕМ
Найти сумму и произведение всех четных двузначных чисел.
ВЫПОЛНЯТЬ НУЖНО ЦИКЛИЧЕСКИМ АЛГОРИТМОМ
​

Answer 1

Ответ:

pascal

Объяснение:

var i, S: integer;

   P: real;

begin

 P := 1;

 for i := 10 to 98 do

   if (i mod 2 = 0) then begin

     S := S + i; P := P * i;

   end;

 WriteLn('Сумма равна ', S);

 WriteLn('Произведение равно ', P);

end.