Помогите составить программу паскаль нахождение произведения квадратов трех натуральных чисел

Question

Александра

23 декабря, 23:29

+1

Ответы (1)

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

Митрюша · Answer 1

Var

A, B, C:integer;

Begin

WriteLn ('Введите три натуральных числа') ;

ReadLn (A, B, C) ;

WriteLn ('P = ', A*A*B*B*C*C) ;

End.