НУ ПОМОГИТЕ, ПРОШУ, УЖЕ В КОТОРЫЙ РАЗ СПРАШИВАЮ, СДОХНУ УЖЕ ОТ БЕЗЫСХОДНОСТИ НАД ЭТИМ ЗАДАНИЕМ
СРОЧНО!!! ПОМОГИТЕ, УМОЛЯЮ! И ПРОШУ, ПОЖАЛУЙСТА, С ОБЪЯСНЕНИЕМ
Найти сумму и произведение всех четных двузначных чисел.
ВЫПОЛНЯТЬ НУЖНО ЦИКЛИЧЕСКИМ АЛГОРИТМОМ
Ответы
Ответ дал:
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.
gjghvjhcchch:
Огромное вам спасибо !!!
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
9 лет назад