Информатика 8 классНайдите сумму чётных чисел и произведение нечётных чисел введённых с...

Question

Информатика 8 класс
Найдите сумму чётных чисел и произведение нечётных чисел введённых с клавиатуры количество чисел задается с клавиатуры

Answer 1

Program Z1;
uses crt;
var
a,b,c,r,r1:real;
begin
writeln('Введите 1, 2 и 3 числа ');
readln(a,b,c);
r:=a+b+c;
r1:=a*b*c;
writeln('Сумма чисел: ',r);
writeln('Произведение чисел ',r1);
end.

Comments

Бред

---

If a mod 2<>o