ОЧЕНЬ СРООООООООЧНОООООО!!!!!!!!!!!!!!!!!!!!!!!!

1) Как узнать, является ли число А простым.

2) Как найти НОК. (кроме того, что НОК=а*b div НОД)

3) Как найти max и minчисло из 2-х. (не обязательное)

Все в паскале АВС. Посьба помочь к тем, кто реально что-то понимает!!!

1

Ответы и объяснения

Лучший Ответ!
2012-05-05T20:21:53+00:00

1.

Program ex;
Uses crt;
var
i,f,n:integer;
begin
clrscr;
write('n=');readln(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then f:=1;
if f=0 then write('Yes')else writeln('No')
end.

 

2.

Program ex2;
Uses crt;
Var
m,n,a,b,c,d,e,f,g,h : integer;
s:real;
Procedure ras(x:integer;var r1,r2,r3,r4:integer);
Begin
r1:=0;r2:=0;r3:=0;r4:=0;
while (x MOD 7)=0 do
begin
x:=x DIV 7;
r1:=r1+1
end;
while (x MOD 5)=0 do
begin
x:=x DIV 5;
r2:=r2+1
end;
while (x MOD 3)=0 do
begin
x:=x DIV 3;
r3:=r3+1;
end;
while (x MOD 2)=0 do
begin
x:=x DIV 2;
r4:=r4+1
end;
End;

Begin
clrscr;
s:=1;
write('n=');readln(n);
write('m=');readln(m);
ras(n,a,b,c,d);
ras(m,e,f,g,h);
if a>e then s:=s*exp(ln(7)*a) else s:=s*exp(ln(7)*e);
if b>f then s:=s*exp(ln(5)*b) else s:=s*exp(ln(5)*f);
if c>g then s:=s*exp(ln(3)*c) else s:=s*exp(ln(3)*g);
if d>h then s:=s*exp(ln(2)*d) else s:=s*exp(ln(2)*h);
writeln('NOK=',s);
End.

 

3.

Program ex3;
Uses crt;
Var
m,n : real;
Begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
if m>n then write('M>N') else
if m=n then write('M=N') else write('N>M');
End.

Program ex3;
Uses crt;
Var
m,n : real;
Begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
if m>n then write('M>N') else
if m=n then write('M=N') else write('N>M');
End.

{Или я не понял задание:)}