Нужно написать программу к в турбо паскале и сделать к блок-схему. каждый день поль получает карманные - id189159620220525 от gnatiuk1981 25.05.2022 02:12

Question

Информатика: Нужно написать программу к в турбо паскале и сделать к блок-схему. каждый день поль получает карманные деньги на мелкие расходы.из них он тратит 30 пенсов на сладости.это составляет 1/4 часть того,что он покупает ежедневно.поль сберегает 1/3 того,что остается после покупки сладостей.напишите программу,которая выводит на экран сумму,накопленную полем за один год.

gnatiuk1981 · 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 ответил