Составить программу в паскале.
Формат ввода:
вводится одно натуральное число N, не превосходящее 50.
Формат ввода:
Выведите 1,если данное число просто и 0, в противном случае.

1

Ответы и объяснения

2013-10-15T20:33:20+00:00
Var
Q,N,i,x:longint;
begin
Read(N);
Q:=Round(Sqrt(S));
x:=0;
For i:=2 to Q do
if N mod i = 0 then x:=1;
Write(x);
end.