Паскаль авс.net. ! программирование. мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. маленькая дочь яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритвой. хорошо, что у мамы остался блакнот , в котором все кактусы были обозначены количеством иголок a1 , an (голые кактусы были обозначены 0). сколько кактусов коснулась рука юной девочки .
очочов
3
24.08.2019 20:30
0
Другие вопросы по теме Информатика
25Виктория03
18.05.2020 13:25
У4КГРВ
15.01.2021 11:05
Neckbeardicus
15.01.2021 11:05
МирославаКарповичь
19.03.2019 19:08
DENISIZ8V
19.03.2019 19:10
ghvghbb
27.09.2019 03:40
МсПолинэ
27.09.2019 03:40
dxdarthur2001
06.10.2019 00:20
Популярные вопросы
- Какую продукцию сельского хозяйства вывозит на мировой рынок Австралия?...
1 - Визначте масову долю антисептика для рук, який приготували з 833 г спирту,...
3 - Чому повітряні кулі називають апаратами,...
2 - НАПИСАТЬ ПРОГРАММУ НА С++, ЖЕЛАТЕЛЬНО НА БОЛЕЕ ПРОСТЫХ КОМАНДАХ. Отсортировать...
1 - *Дані цілого типу описуютьсяBOOLEAN INTEGERREALSTRING...
2 - До іть мені будь-ласка це історія всес. ...
1 - В каком разряде стоит цифра 5 в числе 80943530...
2 - 9 клас Завдання на українській мові, нижче на російськійЗадание на украинском,...
3 - С реагента - бромной воды можно различить 2 раствора - пропанола-2 и пропеновой...
3 - Точка замерзания ртути -39 °С,а точка ии кыпиння +256°С. На скилькы градусов...
1
begin
write('Сколько кактусов? ');
readln(n);
write('Введите количество иголок каждого кактуса: ');
for i:=1 to n do
begin
read(a);
if a>0 then s:=s+1;
end;
writeln('ответ: ',s);
end.