Пожалуйста посчитайте , нужна программа для этих задач:1)Вводится произвольная последовательность действительных чисел. Вычислить кол-во нечетных чисел в промежутке от 2 до 312)Вводится произвольнаяпоследовательность целых чисел. Найти произведение элементов кратных 4 и больших нуля. 3)Составить программу для вычисления площади круга и длины диаметра, если радиуспостоянная величина и равен 10 см.

Question

Информатика

Kaulnasmy

5 год назад

Пожалуйста посчитайте , нужна программа для этих задач:1)Вводится произвольная последовательность действительных чисел. Вычислить кол-во нечетных чисел в промежутке от 2 до 312)Вводится произвольнаяпоследовательность целых чисел. Найти произведение элементов кратных 4 и больших нуля. 3)Составить программу для вычисления площади круга и длины диаметра, если радиуспостоянная величина и равен 10 см.

ОТВЕТЫ

Phelps Elwin

Oct 24, 2020

:vara, s, n: integer;beginWriteLn('Введите числа, завершение -- 0:');n:=0; s:=0;Read(a);while a<>0 do beginif not odd(a) then begininc(n); s:=s+a;end;Read(a);end;if n>0 thenWriteLn('Среднее арифметическое четных: ',s/n)elseWriteLn('Четных чисел не введено.');end.Ну я так поняла первое задание (не точно)

764