Люди ! дано натуральное число. выяснить является ли оно простым. паскаль если можно с пояснениями

129

218

Посмотреть ответы 2

Ответы на вопрос:

VeRa2KoToVa1

Информатика

4,6(88 оценок)

Var x,i,f: integer; begin f: =1; //признак, определяющий простоту числа write('введите число: '); readln(x); for i: =2 to x-1 do //перебираем числа if x mod i=0 then f: =0; //если число делится без остатки, значит оно непростое if f=1 then writeln('это простое число') else writeln('это непростое число') end.