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

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

Задать свой вопрос
2 ответа
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.
Нина Алесина
у меня работает и выдает ответ
Sashok Katko
да это точно
Всего чётных чисел от 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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт