напишите программу которая в последовательности чисел заканчивающуюся нулем определяет среднее арифметическое четных чисел кратных 3 и трехзначных, ПИТОН СРОЧНО
Ответы
Ответ дал:
0
var
n, i, k, a: integer;
s: real;
begin
repeat
write('Количество чисел: ');
readln(n)
until n > 0;
writeln('Введите числа:');
for i := 1 to n do
begin
write('Число №', i, ': ');
readln(a);
if a mod 3 = 0
then begin
s := s + a;
inc(k)
end
end;
if k > 0
then writeln('Среднее арифметическое чисел, кратных трём, равно ', s / k :0:5)
else writeln('Нет чисел, кратных трём')
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад