Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2024    »
 123
45678910
11121314151617
18192021222324
25262728293031
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 362
Дано число. Определить количество делителей этого числа, если оно не простое.
Скачать [200 b] ( 1)
var n,i,a:integer;
begin
read (n);
a:=0;
for i:=2 to n div 2 do
begin
if n mod i=0 then begin a:=a+1;end;end;
if a=0 then writeln ('простое') else writeln('не простое ',a,' делители') ;
end.

Облако Тегов

{links}