Попробуй:
var
a, chet, nechet : integer;
begin
write('введите число: ');
readln(a);
while a > 0 do begin
if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
a := a div 10;
end;
writeln('четных: ', chet);
writeln('не четных: ', nechet);
end.
программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:
if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
заменить на:
if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?
2)что означает слово window с английского?
3)...-это белая смерть?
4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?
5)что маслом не испортишь?
6)транспортное средство,предназначеное для движения по рельсам?
РИС
ОКНО
СОЛЬ
ВЕТКА
КАША
ВАГОН
2
Извини, но нужно минимум 20 символов в ответе)