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.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrReal('Введите 4 числа:',4); if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат') else Writeln('Нецелый результат') end.
Примеры Введите 4 числа: 7.2 1.8 25.5 5.5 Целый результат
Введите 4 числа: 36 18.6 12 5 Нецелый результат
Объяснения: Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными. Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.
написал что знань
Объяснение:
слояни защиті (есть наружная защита и изоляция чтоб крові не текла)