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

Ответы на вопрос
Ответил 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.
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.
Новые вопросы
Алгебра,
2 года назад
Русский язык,
2 года назад
Литература,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад