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

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

Задать свой вопрос
Оленька Почерская
просто читалась
Болбас Колян
не выаодилась, а читалась
Дорох Максим
у меня посточнно ошибку выдает
Amelija Vesova
Кем читалась, где?
Дмитрий Багель
Ребяческий лепет какой-то...
Эвелина Ильвичева
я не знаю как обьяснить
Eva Bezrukavnaja
просто написать программу по этой задаче
Егор Покроев
введя свои значения
Iljusha Chapskij
введя свои значения
Тимур
введя свои значения
1 ответ

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

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

begin

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

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

 s += b gt; 0 ? 1 : 0;

 s += c gt; 0 ? 1 : 0;

 s.Println

end.

3.5 0 -5.191

1

Рассомагина Виолетта
спасибо, но с таким решением точно спалят что списыаала
Данил
Вы просили решение, Вы его получили. А если Вам надобно, чтобы еще и "под Вас" писали - приводите примеры кода в вопросе...
Владислав Ювайнштейн
А "списать" это решение нельзя, его нигде нет, не считая как здесь.
Витя Домбак
если бы не говорилось про a, b, c, как про три имеющихся числа, эта задачка вообще пишется в одну строку.
Алла Лаверженцева
begin ReadSeqReal(3).Where(t->t>0).Count.Println end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт