Написать на языке pascal. дан массив с1, состоящий из нулей и единиц. подсчитать количество 0,количество 1, и количество нулей до первой единицы
КАТЯЯЯЯЯ111
1
19.03.2019 13:00
0
Другие вопросы по теме Информатика
vamp9991
07.05.2021 10:35
aitmukhanov200p015xc
07.05.2021 10:34
irina956
07.05.2021 10:34
Kira2236
07.05.2021 10:34
tagirova2
11.08.2019 01:50
liza1329
27.11.2020 18:41
АлiнаКукушкiна
27.11.2020 18:38
vipsab333
04.05.2022 16:21
Pro100god322
04.05.2022 16:30
Популярные вопросы
- Придумать (и решить её) двумя и арифмитическим....
3 - Найдите значение каждого из выражений х( х + 1) ; х ( х + 1 )( х + 2) ; х(...
3 - Учитель ирина васильевна по очереди вызывает школьников к доске. найдите вероятность...
3 - Причины модификационной изменчивости листьев...
1 - Проверьте, , правильно ли составлены этот текст и составить дальше с этими...
1 - 1.чому маленькі діти особливо вразливі, швидко пі шкідливому впливу зовнішнього...
2 - Электрон, пройдя в плоском конденсаторе путь от одной пластины до другой приобрел...
1 - 1)2nh3 + h2so4- (nh4)2so4 2)nh3+hno3- nh4no3 написать для каждого: полное ионное,...
2 - Составить 3-4 предложения на тему лес....
1 - Фразы, которых следует избегать во время развития конфликта...
1
var c:array[1..15]of byte;
i,s1,s2,s3:integer; k:boolean;
begin
for i:=1 to 15 do readln(c[i]);
for i:=1 to 15 do begin
if c[i]=0 then inc(s1) else inc(s2);
if c[i]<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.