ИМЯ величины состоит из одной или нескольких латинских букв, цифр, других знаков. Заглавные и строчные буквы в именах величин считаются одинаковыми, вначале всегда пишется буква
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 else begin Writeln('Сумма отрицательных нечетных чисел: ',sn); if kp=0 then Writeln('Нет положительных чисел, кратных 3') else Writeln('Произведение положительных чисел, кратных 3: ',pp) end end.
а) логическим
Объяснение:
ИМЯ величины состоит из одной или нескольких латинских букв, цифр, других знаков. Заглавные и строчные буквы в именах величин считаются одинаковыми, вначале всегда пишется буква