Даны три числа. найти наибольшее из них, с учетом того, что некоторые из них могут быть равны. pascal

Question

Информатика: Даны три числа. найти наибольшее из них, с учетом того, что некоторые из них могут быть равны. pascal

olegtoda · Accepted Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию! begin   var (sn,pp,kp):=(0,1,0);   var n:integer;   repeat     Read(n);     if (n 0) and n.IsOdd then sn+=n     else       if (n 0) and (n mod 3=0) then begin pp*=n; kp+=1 end   until n=0;   if sn=0 then begin     Writeln( Нет отрицательных нечетных чисел );     if kp=0 then Writeln( Нет положительных чисел, кратных 3 )     else Writeln( Произведение положительных чисел, кратных 3: ,pp)     end...

MOGZ ответил