Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 518
Дано число. Определить количество делителей этого числа, если оно не простое.
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.
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.
