Предмет: Информатика, автор: Аноним

подсчитайте количество чётных и нечётных среди десяти чисел взяты от 0 до 100 помогите пожалуйста

Ответы

Автор ответа: Евгешка1999

Всего чётных чисел от 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

Автор ответа: yuliagal

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.

Автор ответа: yuliagal

у меня работает и выдает ответ

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Математика, автор: Аноним

Определи объём прямоугольного параллелепипеда, если длина сторон прямоугольника в основании равна 5 дм и 9 дм, а высота геометрического тела равна 6 дм.

Объём геометрического тела равен
м3
дм3
см3

6 лет назад

Предмет: Математика, автор: darinadragunova6

4. Как называется прямоугольник, у которого все стороны равны?
o Квадрат
o Треугольник
О Многоугольник

6 лет назад

Предмет: География, автор: polinarogozinnikova