Ответы на вопрос:
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.
Популярно: Информатика
-
otlichnikcom16.05.2020 10:15
-
kjkrf230023.10.2022 05:18
-
Ольга2505200012.03.2022 18:27
-
20софа0509.06.2020 03:25
-
Vika1567828.05.2021 18:57
-
nastyonochka523710.05.2020 01:32
-
Zhenek19564306.08.2022 05:08
-
Помидоркин00102.04.2021 05:55
-
irajuta8220.05.2023 16:10
-
helpmepleasehelp126.09.2021 09:33