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

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

Задать свой вопрос
1 ответ
Program hucla;
var
a,b,c,ans:integer;
begin
readln(a,b,c);
ans := 0;
if(agt;0)then inc(ans);
if(bgt;0)then inc(ans);
if(cgt;0)then inc(ans);
writeln(ans);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт