• Предмет: Информатика
  • Автор: kuptsovaanasta1
  • Вопрос задан 8 лет назад

Кто может помочь? Введите с клавиатуры числа a, b и n . Если a и b больше n, то напечатайте слово «БОЛЬШЕ», если меньше n, то напечатайте «МЕНЬШЕ», иначе найдите и выведите сумму чисел a и b.

Ответы

Ответ дал: razinoleg
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.
Вас заинтересует