Впаскале сделать используя циклы: ввести число и определить является ли оно простым (если его делители являются 1 и само число)
245
389
Ответы на вопрос:
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.
Популярно: Информатика
-
MarinaDonut64809.04.2021 11:21
-
Гелакси2705.11.2021 06:05
-
КатяБойко27521.09.2022 00:33
-
GordienkoA2007.06.2022 13:39
-
flox199806.03.2020 07:29
-
Mary2304Cat08.01.2021 14:40
-
Мира135630.07.2020 08:04
-
natalinatark30.09.2021 08:23
-
ceneral05.11.2022 09:49
-
Элаизааа18.01.2023 16:25