Прошу! 1. найти среднее арифметическое от 1 до n. 2. найти среднее арифметическое целых,чётных,кратных 3 чисел от 1 до n/ 3. найти произведение чисел от 1 до n/
107
261
Ответы на вопрос:
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
Program masivs; var a: array [1..25] of integer; i: integer; begin {формирование массива случайными числами в заданном диапазоне} randomize; for i: =1 to 25 do a[i]: =random(201)-100; {вывод сгенерированных чисел} for i: =1 to 25 do write(a[i],' '); end;
Популярно: Информатика
-
kotyatavspalne19.03.2023 21:40
-
nikas4514.06.2022 14:57
-
alona201710.06.2020 13:00
-
Иришка9Класс23.03.2023 11:36
-
алгебра10817.12.2021 11:30
-
aigul24523.03.2023 16:52
-
егор146509.02.2022 21:18
-
valiente12.12.2021 17:53
-
Jefry22825.10.2022 12:33
-
nyamnov09.08.2020 13:37