Вопрос по информатике:
На входе программы подается 8-разрядное двоичное число, необходимо найти количество единиц и нулей составляющих это число
ПАСКАЛЬ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.08.2016 01:20
- Информатика
- remove_red_eye 13708
- thumb_up 28
Ответы и объяснения 2
x: string;
begin
readln(x);
write('Единиц ');
writeln(x.Where(x -> x = '1').Count);
write('Нулей ');
writeln(8 - x.Where(x -> x = '1').Count);
end.
Пример
00011111
5
3
- 16.08.2016 13:49
- thumb_up 30
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString.GroupBy(c->c).Select(x->(x.Key,x.Count)).OrderBy(x->x[0])
.Select(x->Format('"{0}" - {1}',x[0],x[1])).Println(NewLine)
end.
Пример
10101110
"0" - 3
"1" - 5
2. Школьный вариант в стиле Pascal ABC, Free Pascal
var
s:string;
i,k0,k1:integer;
begin
Readln(s);
k0:=0; k1:=0;
for i:=1 to Length(s) do
if s[i]='0' then Inc(k0) else Inc(k1);
Writeln('"0" - ',k0);
Writeln('"1" - ',k1)
end.
Вывод результатов точно такой же, как и выше.
- 17.08.2016 16:14
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.