Помогите пожалуйста решить задачу в Pascal. Найдите значение Z, определив использовав функцию Min. Z=min(3,x)+min(x,y)-min(y,5)
Помогите пожалуйста решить задачу в Pascal.
Найдите значение Z, определив использовав функцию Min.
Z=min(3,x)+min(x,y)-min(y,5)
Гость
Ответ(ы) на вопрос:
ГостьГотово............................
Гостьfunction min(a, b: integer): integer;
begin
if a > b then min := b else min := a
end;
var
x, y: integer;
begin
Write('Bведите через пробел x и y -> ');
Readln(x, y);
Writeln('Z=', min(3, x) + min(x, y) - min(y, 5))
end.
Тестовое решение:
Bведите через пробел x и y -> 4 -6
Z=3
Не нашли ответ?
Похожие вопросы