Компьютеh - это компьютер. Наверно кто-то быстро писал и ошибся нечаянно.
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Ответ:
Дан в приложении.
Объяснение:
Я опирался на теорему Пифагора: в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов двух катетов.
А для нахождения площади была использована формула Герона:
Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.