• Написать программу на языке Паскаль. Даны три действительные числа. Сложить те из них, значения которых не отрицательны.

Ответы 2

  • program chislo;var a, b, c, d: real;begin readln(a, b, c); if a >= 0 then d := d + a; if b >= 0 then d := d + b; if c >= 0 then begin d := d + c; write(d); end else if (a < 0) and (b < 0) and (c < 0) then write('Ни одно из чисел не является положительным') else write(d);end.
    • Автор:

      bridget
    • 6 лет назад
    • 0
  • program chislo;var a,b,c,d:integer;beginwrite('Введите a = ' );readln(a);if a>=0 then d:=d+a;write('Введите b = ' );readln(b);if b>=0 then d:=d+b;write('Введите c = ' );readln(c);if c>=0 then d:=d+c;writeln(d);write('Сумма положительных чисел равна ',d)end.
    • Автор:

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

Войти через Google

или

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

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

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