Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискComboВсе проекты

Разработка программ на языке ABC Pascal с использованием скалярных типов данных, операторов ветвления и варианта.

Ирина Омелюх Ученик (245), закрыт 2 года назад
Даны действительные x, y и z. Вычислить значение функции

x+z, если x,z>0 и y<0;
f(x,y,z)={ x+y, если x,y>0 и z<0;
y+z, если y,z>0 и x<0;
0, в любом другом случае.
Лучший ответ
дунай Мыслитель (5143) 2 года назад
Комментарий удален
Александр Устименко Просветленный (24163) можно упростить мой код еще вот так var x,y,z: integer; begin write ('x,y,z ='); readln (x,y,z); if x*y*z <> 0 then writeln ('0':5) else if (x+y+z - max (x,max(y,z))>0) then writeln (x+y+z) else writeln ('0':5); end.
Остальные ответы
Похожие вопросы
Также спрашивают