Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)
Ответы
Ответ дал:
0
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 составное
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 составное
Ответ дал:
0
СПАСИБО БОЛЬШОЕ
Ответ дал:
0
Пожалуйста
Ответ дал:
0
:3
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад