Помогите,прошу!

1. Найти среднее арифметическое от 1 до N.
2. Найти среднее арифметическое целых,чётных,кратных 3 чисел от 1 до N/
3. Найти произведение чисел от 1 до N/

Ответы (1)

Румиальда 01.01.2025 4

Var
n,i,s,k,p:integer;
begin
p:=1;
write('Введите число ');
readln(n);
writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);
for i:=1 to n do begin
    if (i mod 3 = 0) and (i mod 2 = 0) then begin
      s:=s+i; k:=k+1;
    end;
    p:=p*i
end;
writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);
writeln(' произведение чисел от 1 до ',N,' = ',p);
end.

Тестовое решение:
Введите число 10
среднее арифметическое от 1 до 10 = 5.5
среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6
произведение чисел от 1 до 10 = 3628800

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

Помогите,прошу! 1. Найти среднее арифметическое от 1 до N. 2. Найти среднее арифметическое целых,чётных,кратных 3 чисел от 1 до N/ 3. Найти произведение чисел от 1 до N/

Думаешь ответы не верны?

Помогите,прошу!

1. Найти среднее арифметическое от 1 до N.
2. Найти среднее арифметическое целых,чётных,кратных 3 чисел от 1 до N/
3. Найти произведение чисел от 1 до N/