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

Лучший Ответ!
2012-05-22T22:41:07+04:00

1)var a,b,c: integer;

begin

  readln(a,b);

  c:=sqrt(sqr(b)+sqr(a));

  writeln(a+b+c);

  readln;

end.

2)var a: 1000..9999;

         cifra1,cifra2,cifra3,cifra4: integer;

begin

  readln(a);

  cifra1:=a mod 10;

  cifra2:=(a mod 100)div 10;

  cifra3:=(a mod 1000)div 100;

  cifra4:=a div 1000;

  writeln(cifra1+cifra2+cifra3+cifra4);

  readln;

end.

5)var x,y: real;

begin

  readln(x);

  y:=(5*x)/(3*x-15);

  writeln(y);

  readln;

end.

7)var a: real;

         i,n: word;

begin

  readln(a,n);

  for i:=1 to n do writeln(power(a,i));

  readln;

end.

8)var s,a,n1,n: integer;

begin

  a:=2;

  s:=1;

  n1:=0;

  readln(n);

  if n<=1 then exit;

  repeat

    s:=s*a;

    n1:=n1+1;

    a:=a+2;

  until s>=n;

  writeln(n1);

  readln;

end.