ПОМОГИТЕ НАПИСАТЬ ЗАДАЧУ.
ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего

1
какой диапазон чисел?
тупанул
щас напишу

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

2014-01-27T13:45:22+00:00
Var a,b:real;
Begin
readln(a,b); 
      if a>b then begin writeln('Квадрат числа',a,'=',a*a);                   
                               writeln('Корень числа ',b,'=',sqrt(b));             
                      end; 
      if b>a  then begin writeln('Квадрат числа ',b,'=',b*b);                   
                                writeln('Корень числа ',a,'=',sqrt(a));             
                      end;                   
End.
что-то не то, мозги уже не варят, подожди я исправлю
Комментарий удален