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

в избранное

kapral

17 августа 2022

vara,b,c,ans: integer; beginreadln (a,b,c); ans: =0; if (a>0) then inc (ans); if (b>0) then inc (ans); if (c>0) then inc (ans); writeln (ans); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Помогите пожалуйсто придумать алгоритм переход дороги без светофора! На всякий случайСпасибо!

Требуется определить, является ли данный год високосным

В корзине лежат 14 черных и 2 белых шара. Сколько информации несет сообщение о том, что из корзины достали белыйшар?

Каков минимальный объем видеопамять, необходимый для хранения графического изображения…

Укажите алгоритмы устранения следующих ошибок: 1) Установить курсор на место вставки

Задача по информатике. Марине яблочковой не нравилось что каждый раз учительница называет ее фамилию последней

Надо составить программу в паскале, в которой надо найти процент от заданногочисла

Решить задачу по информатике 4 класс четыре человека стоят у лифта пятиэтажного дома все они живут на разных этажах…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: