Помогите пожалуйста!
нужно написать программу, которая определяет, является ли целое число простым. На уровне 9 класса, попроще что бы было. В паскале. Заранее спасибо!
Ответы
Ответ дал:
0
program p1;
uses crt;
var a,b:integer;
begin
read(a);
If (a mod 2 = 0) and (a <> 2) or (a mod 3 =0)and (a <> 3) or (a mod 5 = 0) and (a <> 5)or (a mod 7 = 0) and (a <> 7) then
write(a,' непростое число')
else
write(a ,' простое число');
end.
uses crt;
var a,b:integer;
begin
read(a);
If (a mod 2 = 0) and (a <> 2) or (a mod 3 =0)and (a <> 3) or (a mod 5 = 0) and (a <> 5)or (a mod 7 = 0) and (a <> 7) then
write(a,' непростое число')
else
write(a ,' простое число');
end.
Ответ дал:
0
Спасибо!
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад