Информатика, опубликовано 2018-08-22 19:27:19 by Гость
Составьте программу, определяющую, является ли данное натуральное число простым. Это Паскаль.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.