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

Question

Информатика

Пафнутий

11 января, 21:36

Даны два числа. Вычислить их сумму. Если она превышает 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.