Вдетском саду 52 ребенка.каждый из них любит конфеты или мороженое. половина детей любит конфеты а 20 - id420825320220717 от nikabagirovap0dq1g 17.07.2022 11:55

Question

Информатика: Вдетском саду 52 ребенка.каждый из них любит конфеты или мороженое. половина детей любит конфеты а 20 человек - конфеты и мороженое.сколько детей любят мороженое? сколько детей любят только мороженое? бабушка прислала ивану посылку с яблокоми и грушами. не которые из этих плодов были большими остальные маленьки. по цвету плоды тоже различается: часть плодов были желтые остальные зеленые.среди них не было ни маленьких груш, ни маленьких зеленых яблок. яблок было 25 а груш 17.больших плодов было 32.

nikabagirovap0dq1g · Accepted Answer

Var a,k1,k2,s:integer; begin writeln( Вводите целые числа. Конец ввода - 0 ); k1:=0; k2:=0; s:=0; readln(a); while a 0 do  begin  if (a mod 2 = 0)and(a 0) then k1:=k1+1;  if a mod 2 0 then begin k2:=k2+1; s:=s+a; end;  readln(a);  end; writeln( количество четных отрицательных чисел = ,k1); if k2 0  then writeln( среднее арифметическое нечётных чисел = ,s/k2)  else writeln( в последовательности нет нечётных чисел ); end. Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных...

MOGZ ответил