В паскале сделать используя циклы:
Ввести число и определить является ли оно простым (если его делители являются 1 и само число)
More Questions From This User See All
В паскале сделать используя циклы:
Ввести число и определить является ли оно простым (если его делители являются 1 и само число)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.