напишіть програму, яка виводить з трицифрового числа окремо клас сотень, десятків та одиниць
в visual studio
161
335
Ответы на вопрос:
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
Популярно: Информатика
-
eshkinbayramov223.04.2023 17:41
-
Няшка900008.03.2022 04:03
-
НеизвестныйНикнейм14.07.2020 00:02
-
AnnI82029.07.2022 04:09
-
артем777тема21.02.2021 17:32
-
Lero4ka22210.03.2020 02:50
-
freedomman8722.05.2022 02:40
-
tania7po17.12.2020 06:38
-
09876нг867820.11.2021 14:19
-
Anastasii0316.05.2023 07:31