Подсчитывает количество элементов массива,которые больше нуля
Uses crt;
var
a,b,c,d,e,f:real;
begin
writeln('Введите числа c и d');
readln(c,d);
writeln('Введите числа a и b');
readln(a,b);
if (c:=a * a) then begin
writeln('Число a является квадратом c');
else
writeln('Число a не является квадратом c');
end;
if (d:=b * b * b) then begin
writeln('Число d является кубом b');
else
writeln('Число d не является кубом b');
end;
End.
Неважно, какой именно шар достали, важно, что выбрали один из 64 возможных. Поскольку 64 = 2⁶, информации в таком сообщении <u>6 бит.</u>
2 в 10 степени байтов=1кб.
2 в 13 степени=1кб.8б.
2 в 16 степени=64кб.
2 в 13 битов=8кб.
2 в 16 бит=64кб.
P.S.Считала если в 10 степени то 2*2*2*2*2*2*2*2*2*2 Вот так
Оба искомых числа должны лежать в промежутке от 36 (100 в 6-ричной записи) и 215 (555 в 6-ричной записи) и давать в сумме 259 (1111 в 6-ричной записи), т.е., a+b=259 => a=259-b,
Минимальное а, для которого все эти условия выполняются, равно 44, при b=215.
Очевидно, что остальные пары выглядят так: (45, 214), (46, 213), ... (215, 44), таких пар будет 172. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 172/2 = 86.
Ответ 86
* сходится с вашим ответом :)