Помогите решить, очень срочно
Var a,b,c,m:integer;p:real;
begin
readln(a,b,c);
m:=a;
if b < m then
m:=b;
if c
p:=(a*b*c)/m;
writeln(p);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
