Технологии

• Всего ответов: 2


Алексей Чудинов
10-й в Технологиях
4.9 23 отзыва

var n,i,j,k:integer;
begin
readln(n);
for i := 2 to trunc( n/2) do
for j := i to trunc( n/2) do
if i*j=n then inc(k) ;
writeln(k=0);
readln;
end.
декабрь 5, 2011 г.

Иван Сергеевич
54-й в Технологиях
4.5 2 отзыва
var i,n,k:integer;
begin
k:=1;
readln(n);
for i:=2 to (n-1) do
if n mod i =0 then
begin
k:=0;
break;
end;
if k=0 then writeln('true') else writeln('false');
end.
декабрь 7, 2011 г.

Похожие вопросы