Даны два числа A и B большее из них возвести в квадрат, меньшее в куб

Question

Информатика

Геша

20 марта, 11:03

Даны два числа A и B большее из них возвести в квадрат, меньшее в куб

+2

Ответы (1)

Знаете ответ на вопрос?

Максим · Answer 1

На языке pascal;

program main;

var a, b: integer;

begin

readln (a, b) ;

if a>b then

begin

a:=a*a;

b:=b*b*b;

writeln ('a=', a,' b=', b) ;

end

else

begin

if a begin

a:=a*a*a;

b:=b*b;

writeln ('a=', a,' b=', b) ;

end

else

writeln ('Введены равные числа') ;

end;

readln;

end.