Ответы на вопрос:
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
Популярно: Информатика
-
leralerav08.05.2020 10:34
-
Дженнет200111.06.2021 14:52
-
743299904.06.2022 17:39
-
Ydalxa53409.04.2022 20:44
-
Diman4ik35512.12.2022 03:38
-
sematom29.06.2020 05:17
-
TrinanenkoJulia10.01.2023 11:52
-
elsoc20.06.2023 02:17
-
valya14071983p07upc31.05.2022 02:54
-
Улынись67818.05.2021 23:07