Фирмы a,b,c,d,e планируют принять участие в проекте строительства монорельсовой дороги в аэропорт внуково - id121572420220816 от двоишник228333 16.08.2022 17:37

Question

Информатика: Фирмы a,b,c,d,e планируют принять участие в проекте строительства монорельсовой дороги в аэропорт внуково . известно, что - если a участвует, то b и c тоже участвуют - если с участвует, то d тоже - е участвует тогда и только тогда, когда участвует в - из фирм а и в участвует, по крайней мере, одна - только одна из фирм d и е участвует в проекте. какие фирмы примут участие в проекте строительства?

двоишник228333 · Accepted Answer

Var
a:array[1..12]of real;
i:integer;
s1,s2,s3,s4:real;
begin
for i:=1 to 12 do
begin
writeln('Введите среднемесячную температуру за ',i,' месяц:');
read(a[i]);
if i<=3 then s1:=s1+a[i] else
if (i>3)and(i<=6) then s2:=s2+a[i] else
if (i>6)and(i<=9) then s3:=s3+a[i] else
s4:=s4+a[i];
end;
writeln('Средняя температуры зимних месяцев: ',s1/3);
writeln('Средняя температуры весенних месяцев: ',s2/3);
writeln('Средняя температуры летних месяцев: ',s3/3);
writeln('Средняя температуры осенних месяцев: ',s4/3);
end.

MOGZ ответил