Написать на языке pascal. Дан массив с 1, с 2… . С15 состоящий из нулей и единиц.…

Question

95

Написать на языке pascal. Дан массив с 1, с 2… . С15 состоящий из нулей и единиц. Подсчитать количество 0, количество 1, и количество нулей до первойединицы

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

darik · Accepted Answer

38

darik

19 августа 2022

var c: array[1… 15]of byte; i,s1,s2,s3: integer; k: boolean; beginfor i: =1 to 15 do readln (c[i]); for i: =1 to 15 do beginif 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.

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

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

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

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