Консультация № 190547
09.02.2017, 23:08
0.00 руб.
1 1 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Написать программу на паскале:
Прикрепленные файлы:
15e8aff46e03c28e4365df94e2c7b78ea31da325.jpg

Обсуждение

давно
Старший Модератор
31795
6196
10.02.2017, 11:17
общий
это ответ
Здравствуйте, nikita9581!

[code lang=pascal h=100]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
x,y,z:real;
begin
write('X:=');readln(x);
write('Y:=');readln(y);
write('Z:=');readln(z);
writeln('result:',max(min(x,y),z)/3);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа