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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
