Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
1)4+8=12
2)12+8=20
3)32-20= 12 = 3/8
1) черные клубки шерсти составляют <span> 3/8</span> от всех
2) поэтому сообщение о том, что первый вынутый клубок шерсти – черный, соответствует выбору одного из 8 вариантов
3) выбор 3 из 8 вариантов – это информация в 9 бита (по таблице степеней двойки)
4) правильный ответ – 9 битов
Всех выходов ,возможных 16, но ожидаемых выходов всего лишь 4. ;
4\16 = 1\4= 25%
И.п- (есть) Мечи
Р.п-(нет) мечей
Д.п-(рад) мечам
В.п-(вижу) мечи
Т.п- (любуюсь) мечами
П.п-( говорю о) мечах