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

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

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.