program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.
Берешь все уроки, делишь на три
Прослезились
Нужно умножить каждую единицу на двойку в степени n, где n - это позиция единицы справа начиная с нуля
здесь на "первом" месте справа (считаем с нуля) стоит ноль, поэтому нет 2^1
Размер = 48 Кбайт
Время передачи = 20 сек
Скорость передачи = 48/20 = 2.4 Кбайт/сек
Размер файла, передаваемого за 2 минуты при той же скорости = 2.4*120 = 288 Кбайт
(x>=10) and (x<100)
Третий вариант