program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
Привет не вноси меня пж в плохие советы это просто можно найти в итернете а об отношениях автора к гироине это называется романтика а остольное не знаю.
If ((mas[j]>0) and (mas[j+1]<0)) or ((mas[j]<0) and (mas[j+1]>0)) then
<span>Знак поменялся</span>