Домашняя работа на 23.04.15

Program One;
Var a,b,c:integer;
begin
writeln('Vvedite 3 chisla');
readln(a,b,c);
If (a<b+c) and (b<a+c) and (c<a+b) then writeln('F=1')
else writeln('F=0');
readln;
end.

Домашняя работа

Program One;
Var x,y:real;
begin
writeln('vvedite x,y');
readln(x,y);
if x>y then
wrireln ('x=',2*x*y,'y='(x+y)/2)
else writeln('x=',(x=y)/2,y='2*x*y)
readln;
end.

Домашняя работа,§35 #10

6)Program One;
   Var a, b, c, d, e, f: integer;
   Begin
   Readln (a, b, c, d, e, f);
   e:= a*d+c*b;
   f:=b*d {знаменатель};
   writeln (e,f);
   end.
7)Program One;
   Var x, y: integer;
   Begin
   Readln (x, y);
   y:=SQR(1-x*x+5*x*x*x*x);
   Writeln(y);
   End.
8)1. y=x^8  
   2. y=x^10   
   3. y=x^15  
   4. y=x^19
   1. Program One;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     2.Program Two;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     3. Program Three;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     4. Program Four;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
9)Program One;
    Var A,B,C,D: real;
    Begin
    Readln (A, B, C, D)
    D:=A;
    A:=C;
    C:=B;
    B:=D;
    Writeln (A, B, C);
    End.