Написать программу в Pascal
числа a,b и c вводятся с клавиатуры.найти max(a,a+b)+max(a,b+c)/1+max(a+b*c,1,5)
Аноним:
Какая версия Паскаля?
1) Pascal ABC или Free Pascal
2) как понять max? Оно каждый раз сравнивает какое из этих больше и вставляет или другой смысл?
Ответы
Ответ дал:
2
Уверен, что формула в условии написана неверно, но уж как написано...
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5))
end.
Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 31
А вот так, на мой взгляд, должно быть:
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5)))
end.
Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 0.6
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5))
end.
Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 31
А вот так, на мой взгляд, должно быть:
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5)))
end.
Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 0.6
Ответ дал:
1
function max (var first,second:real): real;
begin
if first > second then max:=first else max:= second;
end;
var a,b,c,y : real;
begin
writeln('Ведите a,b,c через пробел и нажмите Enter: ');
read(a,b,c);
y:= max(a,a+b)+max(a,b+c)/1+max(a+b*c,1.5);
writeln('Ответ: ',y);
end.
begin
if first > second then max:=first else max:= second;
end;
var a,b,c,y : real;
begin
writeln('Ведите a,b,c через пробел и нажмите Enter: ');
read(a,b,c);
y:= max(a,a+b)+max(a,b+c)/1+max(a+b*c,1.5);
writeln('Ответ: ',y);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
6 лет назад
7 лет назад