Кто может помочь? Введите с клавиатуры числа a, b и n . Если a и b больше n, то напечатайте слово «БОЛЬШЕ», если меньше n, то напечатайте «МЕНЬШЕ», иначе найдите и выведите сумму чисел a и b.
Ответы
Ответ дал:
0
Var
a,b,N: integer
begin
Readln(a);
Readln(b);
Readln(N);
if (a>N) and (b>N) then Writeln ('БОЛЬШЕ')
else if (a<N) and (b<N) then Writeln ('МЕНЬШЕ')
else Writeln ('N в промежутке между a и b') else Writeln('N в промежутке между a и b') end.
a,b,N: integer
begin
Readln(a);
Readln(b);
Readln(N);
if (a>N) and (b>N) then Writeln ('БОЛЬШЕ')
else if (a<N) and (b<N) then Writeln ('МЕНЬШЕ')
else Writeln ('N в промежутке между a и b') else Writeln('N в промежутке между a и b') end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
9 лет назад