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

Question

Мартьян

13 октября, 12:33

+1

Ответы (1)

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

Ефросиния · Answer 1

Var

A, B, C:integer;

Begin

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

ReadLn (A, B, C) ;

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

End.