Var
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn(Sqrt(n*c))
End.
Var n,f,i:integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=2 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
n = 6
6! = 720
Program abcd;
var m,n,i: integer;
begin
i:=0;
Writeln('m=');
Readln(m);
Writeln('n=');
Readln(n);
if n mod m = 0 then i:=1;
if m mod n = 0 then i:=1;
Writeln('i= ',i );
Readln;
<span>end.</span>
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*