GAECHKA
Твоя помощница в решении задач

Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)...

Даны действительные числа k, n. Получить

t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)
0
вопрос задан

Источник


1 ответ
function min(a,b:real):real;
begin
if athen min:=a else min:=b;
end;
var k,n,t,v,g:real;
begin
writeln('Введите значения k,n');
readln(k,n);
if k=0 then writeln('Значение t не определено, деление на 0')
else
 begin
  t:=min(k+n,n/k);
  writeln('t=',t:0:2);
 end;
v:=min(3*k*n,k+2*n*n);
writeln('v=',v:0:2);
if v=0 then writeln('Значение g не определено, деление на 0')
else
 begin
  g:=min(t-v,t/v);
  writeln('g=',g:0:2);
 end;
end.