• Заданы три числа. Если их сумма равна нулю, то найти сумму первых двух чисел и вывести результат. ПЖ УМОЛЯЙ ДАЮ 98 БАЛОВ!!!!!!!!!!!!!!СРОЧНО

Ответы 4

  • СПС ВСЕМ ПОМОГЛИ
  • program huiya;varone,two,three:Integer;begin writeln('первое число'); readln(one); Writeln('второе число'); readln(two); writeln('третье'); readln(three); If (one+two+three)=0 then writeln('сумма первых двух чисел: ' ,one+two) else writeln('сумма трех чисел не равна нулю'); readln; {ридлн для паузы}end.
  • сори, не могу передать так, пиши свой вк, скину
    • Автор:

      sable
    • 6 лет назад
    • 0
  • Язык: Pascal ABCprogram name;var a, b, c, d:integer;beginReadln(a, b, c) ;d:= a+b+c;If d = 0 thenBegind:= a+b;Writeln(d)EndElseWriteln('Сумма трех чисел равна ', d)End.
    • Автор:

      alonso37
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years