SaveText.Ru

Без имени
  1. uses crt;
  2. var n,m,k,a,b : integer;
  3. begin
  4.      clrscr;
  5.      write('Enter a: ');
  6.      readln(a);
  7.      write('Enter b: ');
  8.      readln(b);
  9.      if a<=b then
  10.      begin
  11.           writeln('Answer:');
  12.           for n:=a to b do
  13.               for m:=a to b do
  14.                   for k:=a to b do
  15.                       if (sqr(n)+sqr(m)) = sqr(k) then
  16.                            writeln('n = ',n,', m = ',m,', k = ',k);
  17.      end else writeln('a>b');
  18.      writeln('press enter for exit..');
  19.      readln;
  20. end.
  21.  

Share with your friends:

Print