Помогите плиииз! Составьте программу для нахождения среднего арифметического всех натуральных нечетных двузначных чисел.Программа
5-9 класс
|
выполняется в Паскале!
var
SrAr:real;
s, i, k:integer;
begin
k:=0;
s:=0;
for i:=10 to 99 do
if i mod 2<>0 then
begin
s:=s+i;
k:=k+1;
end;
SrAr:=s/k;
writeln(SrAr:5:5);
end.
Другие вопросы из категории
являются чётными и кратными трём
удаление программ», сколько приложений установлено на вашем компьютере, и
вычислить, какое количество информации содержит сообщение о том, что было запущено одно из них.
Читайте также
натуральных двузначных чисел, кратных 2, в программе- построение блок схем, используя циклический алгоритм
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.