ЮляD
Опубликовано 7 лет назад по предмету Информатика от ЮляD


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

  1. Ответ
    Ответ дан Formalka

    Program chislo;

    var N,delit,count,ccount:integer;beginread(N);count:=0; ccount:=0;for delit:=1 to N doif N mod delit = 0 thenbegincount:=count+1;if (delit mod 2 = 0) then ccount:=ccount+1;end;writeln('Делителей: ',count);writeln('Четных делителей: ',ccount);end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц