80 БАЛЛОВ!!!Помогите Паскаль!!!Нужно составить программу которая проверяла является ли простым числом,введенное с клавиатуры числом
Answers & Comments
alexfedor932
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,' НЕ является простым.');
alexfedor932
Просто простое число имеет только два делителя, я это прверяю если количество делителей больше двух. Значит число не простое. А в sum просто записываю количество делителей
Иришми
а будет ошибкой если я напишу в место sum.напишу х
Answers & Comments
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.