80 ! ! нужно составить программу которая проверяла является ли простым числом,введенное с клавиатуры числом

287

383

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

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

mkruglik130

Информатика

4,8(11 оценок)

Program zhn; var n,i,sum: integer; begin write('введите значение: '); readln(n); for i: =1 to n do begin if n mod i = 0 then sum: =sum+1; end; if sum = 2 then writeln('число ',n,' является простым.') else writeln('число ',n,' не является простым.'); end.