Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. Паскаль

Question

Информатика

Кианэ

21 июня, 01:55

Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. Паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Маной · Answer 1

Var num, i:integer;

begin

readln (num) ;

for i:=2 to num do

if num mod i = 0 then break;

if i = num then writeln ('число простое')

else writeln ('число составное') ;

end.