Регистрация
QwErtY314455667
01.04.2021 10:55
Информатика
Есть ответ 👍

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

195
371
Посмотреть ответы 2

Ответы на вопрос:

carn1889
carn1889
4,8(33 оценок)

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.

sergey250305
sergey250305
4,5(39 оценок)

Блин, кто в своём уме даст такое ученику?

Популярно: Информатика