Найти количество делителей натурального числа. Сколько из них четных? Решить в Turbo Pascal, без массивов. Срочно, ПОЖАЛУЙСТА
Найти количество делителей натурального числа. Сколько из них четных? Решить в Turbo Pascal, без массивов. Срочно, ПОЖАЛУЙСТА
Гость
Ответ(ы) на вопрос:
Гостьvar N,delit,count,ccount:integer;
begin
read(N);
count:=0; ccount:=0;
for delit:=1 to N do
if N mod delit = 0 then
begin
count:=count+1;
if (delit mod 2 = 0) then ccount:=ccount+1;
end;
writeln('Delit: ',count);
writeln('Chetn Delit: ',ccount);
end.
Не нашли ответ?
Похожие вопросы