Question

Зациклить программу,чтоб он выполнял данное действие n-ое кол-во раз например,ввел число,а он написал (простое или золотое) и опять просил ввести число function prost(n: integer): boolean; var i: integer; begin prost: =true; if n< 2 then prost: =false else for i: =1 to n div 2 do if ((n mod i)=0) and (i< > 1) then prost: =false; end; var n: integer; begin writeln ('введите число'); readln (n); if prost(n) then writeln ('простое') else writeln ('золотое'); end.

Answer 1

Function Prost(n:integer):boolean;vari:integer;beginProst:=true;if n<2 then Prost:=false elsefor i:=1 to n div 2 do if ((n mod i)=0) and (i<>1) then Prost:=false;end;varn,k,j:integer;beginwriteln ('Введите количество раз выполнения программы:');readln(k);for j:=1 to k dobeginwriteln ('Введите число');readln (n);if prost(n) then writeln ('Простое')else writeln ('Золотое');end;end.

Answer 2

Function Prost(n:integer):boolean;
var
i:integer;
begin
Prost:=true;
if n<2 then Prost:=false else
for i:=1 to n div 2 do 
if ((n mod i)=0) and (i<>1) then Prost:=false;
end;
var
n,k,N:integer;
begin
writeln ('Введите N');
readln(N);
For k:=1 to N do
begin
writeln ('Введите число');
readln (n);
if prost(n) then writeln ('Простое')
else writeln ('Золотое');
end;
end.