Информатика, вопрос задал Alex141111 , 8 лет назад

Составьте программу по блок схеме(Паскаль)

Приложения:

Ответы на вопрос

Ответил NyAsHkA221
0
var A,B,C,M,P:real; 
begin    
write('Введите A = ');Readln(A);    
write('Введите B = ');Readln(B);    
write('Введите C = ');Readln(C);    
M:=A;    
If B<M Then       
    M:=B;   
if  C<M Then       
    M:=C;       
P:=(A*B*C)/M;  
Write('P = ',P);
 end.

Новые вопросы