Ответы
Ответ дал:
0
var x,y,z:real;
function min(a,b:integer):integer;
begin
if a<b then result:=a else result:=b;
end;
begin
writeln('Введите х и у: ');
readln(x,y);
z:=min(3,x)+min(x,y)-min(y,5);
writeln('z=',z);
end.
function min(a,b:integer):integer;
begin
if a<b then result:=a else result:=b;
end;
begin
writeln('Введите х и у: ');
readln(x,y);
z:=min(3,x)+min(x,y)-min(y,5);
writeln('z=',z);
end.
Ответ дал:
0
Спасибо большое
Ответ дал:
0
Пожалуйста
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад