Разработать алгоритм, писать его с помощью блок-схемы и написать текст программы на языке Pascal для решения следующей задачи: Заданы числа X,Y,Z. Найти сумму четных чисел и произв

[maxwelln1]

Разработать алгоритм, писать его с помощью блок-схемы и написать текст программы на языке Pascal для решения следующей задачи:
Заданы числа X,Y,Z. Найти сумму четных чисел и произведение нечетных.

[digitalis]

Ну а нарисовать схему алгоритма (так оно теперь называется, а не блок-схема) и кошка может.

program  one ;
var X,Y,Z,resmul,resadd: integer;

procedure AddMul(a : integer; var ba,bm : integer);
begin
   if (a and 1) = 1 then ba := ba+a else bm := bm*a ;
end;

begin
   resadd := 0 ; resmul := 1 ;
   Write('Input X,Y,Z ');
   Readln(X,Y,Z);
   AddMul(X,resadd,resmul);
   AddMul(Y,resadd,resmul);
   AddMul(Z,resadd,resmul);
   Writeln(' resadd= ', resadd, ' resmul =', resmul);
   Readln (X) ;
end.

[kukobch]

https://olymp.hse.ru/data/2016/02/24...0%B0%D0%BB.pdf

[kukobch]

помогите написать программы

[Вадим Мошев]

Создайте свою тему, а не лезьте в чужую