Подсчитайте количество чётных и нечётных среди десяти чисел взяты от 0 до 100
281
299
Ответы на вопрос:
Var i, chet, nechet: integer; begin for i: =0 to 100 do if i mod 2=0 then inc(chet) else inc(nechet); writeln(chet,'-количество четных); writeln(nechet,'-количество нечетных); end.
Всего чётных чисел от 0 до 100 - 50: 2, 4, 6, 94, 96, 98, 100, - арифметическая прогрессияs50=n*(a1+a50)/2=50*(2+100)/2=50*51=2550 аналогично: 1, 2, 3, 95, 97, 99, s50=n*(a1+a50)/2=50*(1+99)/2=50*50=2500
1) для чего нужны мозги? твой первый вопрос сопоставим с этим 2) ну я не знаю кем нужно быть что бы этого не знать(винда, линукс и т.д)
Популярно: Информатика
-
ЯнаZL04.02.2023 19:57
-
Eskhere03.10.2022 16:26
-
BoPoHoK21.09.2022 14:42
-
alenalavkav712.10.2021 16:33
-
AnnaMarkeca9121.08.2022 08:10
-
olliu5605.09.2021 07:47
-
nastyarapuntseozgwc210.02.2021 16:23
-
llovepet2005.02.2021 19:41
-
seal200424.01.2023 00:18
-
olya7535729.12.2020 13:56