var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
Для второй задачи: 178,329 сек.
Для третьей задачи: 300 байт
Объяснение:
Вторая задача:
Переведём 15 мб в байты:
15 * 1024 * 1024 = 15728640 байта
Поделим количество байт на частоту дискретизации:
15728640 / 44100 = 356,658 сек.
Осталось поделить полученное число на 2, так как разрядность звуковой платы 16 (16 / 8 = 2):
356,658 / 2 = 178,329 сек.
Конечное выражение для вычислений:
15 * 1024 * 1024 / 44100 / 2
Третья задача:
Изображение имеет размер 10 * 15 точек, значит всего 150 точек.
Палитра состоит из 65536 цветов, для их кодирования необходимо 16 бит:
Итого: 150 * 16 = 2400 бит.
Переведём в байты: 2400 / 8 = 300 байт.