Напишите программку, которая в последовательности целых чисел определяет среднее
Напишите программку, которая в последовательности целых чисел определяет среднее арифметическое
отрицательных чисел, кратных 6. Программа получает на вход целые числа, посреди них есть желая бы одно
отрицательное число, кратное 6, количество введённых чисел неизвестно, последовательность чисел
кончается числом 0 (0 - признак окончания ввода, не входит в последовательность).
Количество чисел не превосходит 1000. Введённые числа по модулю не превосходят 30000.
Программка должна вывести одно число: среднее арифметическое отрицательных чисел, кратных 6.
Напишите программку, которая в последовательности естественных чисел определяет сумму чётных чисел,
кратных 3. Программка получает на вход целые числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не заходит в
последовательность).
Количество чисел не превосходит 1000. Введённые числа по модулю не превосходят 30 000.
Программа обязана вывести одно число: сумму чётных чисел, кратных 3
var a,sum,k: integer;
begin
readln(a);
sum:=0;
k:=0;
while alt;gt;0 do begin
if (alt;0) and (a mod 6=0) then begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
writeln(sum/k);
end.
Program n2;
var a,sum: integer;
begin
readln(a);
sum:=0;
while alt;gt;0 do begin
if (a mod 2=0) and (a mod 3=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.