Составьте программу нахождения наименьшего из двух выражений x+y+z и x×y×2

Автор: balaklava. Предмет: Информатика. Опубликовано: 04.02.2019 balaklava
  1. Slaaps Пользователь Slaaps оставил ответ:
    Оценка ответа

    Var x,y,z,a:real;
    Begin
    Write(x = );ReadLn(x);
    Write(y = );ReadLn(y);
    Write(z = );ReadLn(z);
    a:=x+y+z;
    x:=x*y*2;
    WriteLn(x+y+z = ,a);
    WriteLn(2xy = ,x);
    if a > x then Write(Min = ,x)
    else if a < x then Write(Min = ,a)
    else Write(Выражения равны)
    End.

Отправить свой ответ

Информатика. Похожие вопросы: