Елена
4 год назад
На входе программы подается 8-разрядное двоичное число, необходимо найти количество единиц и нулей составляющих это числоПАСКАЛЬ
ОТВЕТЫ
Кузьма
Oct 24, 2020
var
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
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
533
Смежные вопросы:
