Даны три целых числа. определить, сколько среди них положительных чисел. составить программу на языке паскаль
Gulnurrakulova1981
3
20.05.2019 02:50
1
Другие вопросы по теме Информатика
Vika3839
18.09.2019 13:20
лольтоаш
01.03.2021 16:59
egopka666
01.03.2021 16:59
nastushka208
01.03.2021 16:59
miwe10
08.05.2020 11:47
grusnikot
08.05.2020 11:47
zeroone01
08.05.2020 11:48
xotabich21
08.05.2020 11:48
Популярные вопросы
- Какие основные признаки у растений избыточно увлажненных мест обитания?...
1 - Методом електронного розставте коефіцієнти,вкажіть окисник та відновник pb+o2=pbo...
2 - Придумайте и опишите герб поэта, творчество которого ближе всего вашей душе....
3 - Из 12 м ткани портной сшил 6 одинаковых детских костюмов сколько метров ткани...
2 - Решите уравнение, каждому ! 6x-1.5/3-2x-5/2=4-x...
3 - Решите . дано: решение mna2co3 hcl na2co3+2hcl=2nacl=co2+h2o найти: vco2-?...
3 - поставить слова в скобках в инфинитив и перевести предложения с рус на...
1 - Хелм мне это чото нужно зделать...
1 - Ұзын сөзіне синоним керек көмек керек...
1 - Много ! точка м належить відрізку ке, довжина якого дорівнює 9 см. визначте...
3
var a,b,c,col:integer;
begin
col:=0;
readln(a,b,c);
if (a>0) then col:=col+1
else if (b>0) then col:=col+1
else if (c>0) then col:=col+1;
writeln('Положительных чисел: ',col);
readln;
end.