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

Question

Мартьян

21 июня, 07:55

+5

Ответы (1)

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

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

Var

A, B, C:integer;

Begin

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

ReadLn (A, B, C) ;

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

End.