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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b:integer; begin readln(a,b); if((a+b)>1000) then writeln(a*a, ' - квадрат первого числа') else writeln(b*b, ' - куб второго числа'); end.