Найти колличество делителей и чётных делителей у натурального числа. с помощью программы Paskal.

Question

Информатика

Марина

9 октября, 19:57

Найти колличество делителей и чётных делителей у натурального числа. с помощью программы Paskal.

+4

Ответы (1)

Знаете ответ на вопрос?

Антонидка · Answer 1

Program chislo;

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 ('Делителей: ', count) ;

writeln ('Четных делителей: ', ccount) ;

end.