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

Question

Информатика

Камилька

16 ноября, 19:30

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

+2

Ответы (1)

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

Виолетта · Answer 1

Var a, b:integer;

begin

readln (a, b) ;

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

else

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

end.