Даны два числа. Вычислить их сумму. Если она превышает 1000, то вычислить и вывести квадрат. первого числа, иначе-вычислить и вывести куб второго числа

Question

Информатика

Витоша

14 апреля, 03:19

Даны два числа. Вычислить их сумму. Если она превышает 1000, то вычислить и вывести квадрат. первого числа, иначе-вычислить и вывести куб второго числа

+4

Ответы (1)

Знаете ответ?

Линуша · Answer 1

Var a, b:integer;

begin

readln (a, b) ;

if ((a+b) >1000) then writeln (a*a, ' - квадрат первого числа')

else

writeln (b*b, ' - куб второго числа') ;

end.