1.Program ex; Uses crt; vari,f,n: integer; beginclrscr; write ('n='); readln (n); for i: =2 to trunc (sqrt (n) doif 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.{Или я не понял задание}
