Задача 1.
Считаем количество пикселей: 640*480.
Умножаем на 8 бит.
Получили Количество информации в битах.
Скорее всего, надо еще перевести в байты или килобайты, то есть разделить на 2^3 в первом случае или на 2^13 во втором.
Задача 2.
Считаем глубину кодирования цвета: 64 = 2^6, значит, 6 бит.
Считаем количество пикселей 32*32 = 2^10.
Перемножаем и переводим в байты, то есть делим на 8.
245-245+245
vсообщение о видах персональных компьютерах и их использование
В 1642 году французский математик Блез Паскаль
сконструировал первую в мире механическую счетную машину, которая, умела
складывать и вычитать.
1709 году некий венецианец Полени построил счетную машину,
работавшую при помощи зубчаток с переменным числом зубцов.
В 1623 году немецким учёным Вильгельмом Шиккардом был создан
первый механический "калькулятор", который он назвал считающими
часами. Механизм этого прибора напоминал обычный часовой, состоящий из
шестерёнок и звёздочек. Однако известно об этом изобретении стало только в
середине прошлого столетия.
В 1673 году саксонский математик и философ Готфрид фон
Лейбниц изобрёл машину, выполнявшую четыре основных математических действия и
умевшую извлекать квадратный корень. Принцип её работы был основан на двоичной
системе счисления, специально придуманной учёным.
В 1818 году француз Шарль (Карл) Ксавье Тома де Кольмар,
взяв за основу идеи Лейбница, изобрёл арифмометр, умеющий умножать и делить.-
В 1887 году история развития вычислительной техники вышла на
новый этап. Американскому инженеру Герману Голлериту (Холлериту) удалось
сконструировать первую электромеханическую вычислительную машину – табулятор. В
её механизме имелось реле, а также счётчики и особый сортировочный ящик. Прибор
считывал и сортировал статистические записи, сделанные на перфокартах.
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Это тебя интересует?-
//Pascal ABC.NET 3.1 сборка 1256
Var
n,k:integer;
begin
read(n,k);
writeln(k mod n);
end.
Пример ввода:
3
14
Пример вывода:
2
Или это?
<span>n = int(input())k = int(input())x = k // ny = k - (x * n)print(x)<span>print(y)</span></span>