Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. паскаль
111
491
Ответы на вопрос:
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.
Популярно: Информатика
-
MariyaPak270104.01.2021 08:09
-
танюша23722.10.2021 03:51
-
TlPuBeT05.07.2022 04:04
-
Tatyna8330.01.2023 16:42
-
madinakz105.12.2021 02:21
-
Arisha555430.03.2023 03:06
-
dodpddpfp20.07.2022 12:21
-
karinkaloseva200325.06.2023 18:16
-
Олегнорм29.05.2022 00:05
-
Ехепхеп20.07.2022 22:54