Подсчитать количество положительных чисел среди чисел a,b,c
azharabikenova
1
31.03.2019 03:30
0
Другие вопросы по теме Информатика
bogdansoroka20
17.02.2021 17:29
Кауру
17.02.2021 17:31
Nikitakos222
17.02.2021 17:32
Jenny987
15.12.2021 19:40
Грамбит
15.12.2021 19:40
Daniilkan
15.12.2021 19:39
Romikkk1
15.12.2021 19:39
ISMAL2009
24.11.2021 15:20
maxzaytsev5120
24.11.2021 15:20
Популярные вопросы
- Рэп про поздравляю я тебя с днем рождения друг...
1 - Решить заранее за решение художники проехали по золотому кольцу...
3 - Выберите наименьшее из данных чисел 1) 7\8, 2) 5\9, 3) 0,6 4) 0,55...
3 - Предложение с обращением со словом помещаться...
2 - Составьте предложения по схеме а: «п! » « п», -а. «п? »-а...
3 - Участок прямоугольной формы обнесен изгородью длина которой 140м...
3 - Без куц..го хвоста. что это вообще за слово и какое у него значение?...
1 - Какое из этих животных что делает? выбирай: квакает,стрекочет,воет,каркает,шипит,курлычет,...
1 - Описательный текст по картине васнецова снегурочка 3 класс...
1 - Определите положительные и отрицательные стороны положения австралии...
1
var
a,b,c,ans:integer;
begin
readln(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.