Var
i:integer;
begin
for i:=1 to 10 do
writeln(i,'*',2,'=',i*2);
end.
Ячейка имеет двумерную координату: столбец и строку. Столбцы обозначаются буквами, а строки цифрами. Чтобы узнать количество ячеек в диапазоне, нужно количество столбцов диапозона умножить на количество строк диапозона.
Например, диапозон A1:B5
В него входят столбцы А и B, т.е. всего 2 столбца, и строки с 1 по 5 включительно.
Значит ячеек в диапазоне 2*5 = 10.
G23:G153 - тут один столбец и 131 строка (с 23 по 153 включительно)
1*131 = 131 ячейка.
Последний пример рекомендую сделать самостоятельно.
20 Мбайт = ? бит
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
Соответственно: 20*1024*1024*8=<span>167772160 бит</span>
Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.