Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)
Answers & Comments
A1dar
Procedure prime(n: integer); var i: integer; begin for i := 2 to round(sqrt(n)) do if n mod i = 0 then begin writeln('Число ', n, ' составное'); exit end; writeln('Число ', n, ' простое') end;
begin prime(3); prime(8); prime(23); prime(35); end.
Вывод: Число 3 простое Число 8 составное Число 23 простое Число 35 составное
Answers & Comments
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
if n mod i = 0 then
begin
writeln('Число ', n, ' составное');
exit
end;
writeln('Число ', n, ' простое')
end;
begin
prime(3);
prime(8);
prime(23);
prime(35);
end.
Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное