Ответы
Ответ дал:
0
// PascalABC.Net
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b
end;
function min(a,b:real):real;
begin
if a<b then min:=a else min:=b
end;
var
a,b,c:real;
begin
Write('Введите три числа через пробел: '); Read(a,b,c);
Writeln('Результат: ',max(a+b,c)-min(a+c,b))
end.
Тестовое решение:
Введите три числа через пробел: 5 -2 3.8
Результат: 5.8
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b
end;
function min(a,b:real):real;
begin
if a<b then min:=a else min:=b
end;
var
a,b,c:real;
begin
Write('Введите три числа через пробел: '); Read(a,b,c);
Writeln('Результат: ',max(a+b,c)-min(a+c,b))
end.
Тестовое решение:
Введите три числа через пробел: 5 -2 3.8
Результат: 5.8
Ответ дал:
0
Вообще-то, в ПаскальАВС функции минимум и максимум уже определены, так что можно писать программу, начиная со строки var. Но в более ранних версиях Паскаля этих функций нет.
Ответ дал:
0
Спасибо за ответ
Ответ дал:
0
Для "спасибо" тут есть кнопочка. Голубая.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад