Question

подсчитать количество положительных чисел среди чисел a, b, c. Так чтоб в Паскале программа выводилась, желательно уже подставьте значения

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, c) := ReadReal3;

 var s := a > 0 ? 1 : 0;

 s += b > 0 ? 1 : 0;

 s += c > 0 ? 1 : 0;

 s.Println

end.

3.5 0 -5.191

1