Question

даны переменные a,b,c целочисленного типа. найдите их сумму и произведение. Значения вводятся пользователем

Answer 1

Ответ: var a, b, c, s, p:Integer;

Begin

Write('введите числа') ;

Read(a, b, c) ;

S:=a+b+c;

P:=a*b*c;

Write(P, '' ,s ) ;

End.

Объяснение: