<span>Cначала находим количество девочек в классе. Для этого двоичное число 110010 преобразуем в десятичную, пронумеровав каждую цифру в числе с права на лево, начиная с нуля. Номер числа - показатель степени двойки для дальнейшего суммирования. Там, где 0 - игнорим степень. Где 1- считаем её. В итоге находим сумму 2+16+32=50% девочек в классе. Также и с количеством мальчиков 1010= 2+8=10. Теперь 10 делим на 100%-50%=10/0.5=20 человек в классе. Ответ "Б"</span>
Да.. но все зависит от самого ПО
Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.
Var
s: string;
n: integer;
begin
Write('Введите строку: ');
Readln(s);
n := Length(s);
s := Copy(s, 6, n - 5) + Copy(s, 1, 5);
Writeln(s)
end.
Тестовое решение:
Введите строку: 1234567890abcdef
67890abcdef12345