Есть ответ 👍

Подсчитайте количество чётных и нечётных среди десяти чисел взяты от 0 до 100

281
299
Посмотреть ответы 3

Ответы на вопрос:


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.
MARCOM03
4,6(35 оценок)

Всего чётных чисел от 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) ну я  не знаю кем нужно быть что бы этого не знать(винда, линукс и т.д)

Популярно: Информатика