услуги телефонной сети оплачиваются по следующему правилу: за разговоры до а минут в месяц – в рублей - id472601220220823 от лидия87 23.08.2022 05:21

Question

Информатика: услуги телефонной сети оплачиваются по следующему правилу: за разговоры до а минут в месяц – в рублей за минуту, а разговоры сверх установленной нормы оплачиваются из расчета с рублей за минуту. требуется написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

лидия87 · Accepted Answer

Var
i,n,k:integer;
p:longint;
f,ff:boolean;
begin
Write('Введите количество чисел -> '); Readln(n);
Writeln('Тeперь вводите сами числа');
p:=1; f:=false; ff:=false;
for i:=1 to n do
begin
    Read(k);
    f:=((k<0) and ((k mod 2)<>0));
    ff:=(ff or f);
    if f then p:=p*k
end;
if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)
else Writeln('Не было введено ни одного отрицательного нечетного числа')
end.

Тестовое решение:
Введите количество чисел -> 10
Тeперь вводите сами числа
5 -7 16 0 -3 4 -6 2 1 8
Произведение нечетных отрицательных чисел: 21

MOGZ ответил