Попробуй:
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;
Новый год для меня - самый любимый и долгожданный праздник. В преддверие Нового года мною овладевает странное чувство, что должно случиться что-то волшебное и радостное. Повсюду атмосфера праздника, и люди готовятся к его приходу - покупают пышные ели домой, различные фрукты и сладости на стол, и конечно, подарки для своих близких. Для детей, Новый год - это настоящая сказка.
Накануне Нового года мы начинаем готовиться к его празднованию. Украшаем нашу елку и комнаты яркими гирляндами и игрушками, мишурой и разноцветными шарами. Квартира преображается, становится праздничной и еще более уютной.
Каждый год к праздничному столу мама готовит много всего вкусного и необычного. К нам в гости приходят близкие друзья и родственники. Все веселятся, поют и танцуют, участвуют в забавных конкурсах. Ближе к полуночи, выходим на улицу, запускаем салюты и любуемся красивым фейерверком. Повсюду слышны поздравления, восторг и радость от прихода Нового Года. А на утро, я с нетерпением бегу к елке, чтобы узнать какой же подарок мне подарили.
Уверен, что в этом году празднование Нового Года будет еще увлекательнее, а наступающий год принесет лишь счастье и радость!
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль составить программу для проверки, можно ли заданное натуральное число n представить в виде куба простого числа.