Предмет: Информатика,
автор: юся97
Составьте программу, определяющую, является ли данное натуральное число простым.
Это Паскаль.
Ответы
Автор ответа:
0
uses crt;
var x,i,flag:integer;
begin
clrscr;
writeln("x=");
read(x);
for i:= 1 to x
begin
if (x div i )<>0 then
flag:=flag+1;
end;
if (flag = 2)
write("chislo prostoe")
else
write("chislo ne prostoe");
readln;
end.
var x,i,flag:integer;
begin
clrscr;
writeln("x=");
read(x);
for i:= 1 to x
begin
if (x div i )<>0 then
flag:=flag+1;
end;
if (flag = 2)
write("chislo prostoe")
else
write("chislo ne prostoe");
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: zhulikkhitrets99
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: student0091
Предмет: Алгебра,
автор: Roмans