Дано натуральное N. Определить, является ли оно простым.
10-11 класс
|
Надеюсь поможет
program tt;
uses crt;
var
i,n:integer;
f:boolean;
begin
ClrScr;
writeln('Введите число');
readln(n);
f:=false;
for i:=2 to n-1 do begin
if n mod i=0 then
f:=true;
end;
if f=true then writeln('Непростое')
else writeln('Простое');
readln;
end.
Другие вопросы из категории
Читайте также
Х. Определить,является ли оно четным и делится ли это число на 3
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!