Var i,p: integer;
begin
i:=2;
p:=1;
repeat
p:=p*i;
i:=i+2;
until i>10;
writeln('произведение: ',p);
end.
произведение: 3840
12 страниц * 48 строк * 32 символа * 8 бит = 147456 бит
147456 бит / 8 / 1024 = 18 Кбайт
Блок - это диапазон ячеек на листе таблицы Excel. Чаще всего блоки бывают прямоугольными и обозначаются адресами двух ячеек - левой верхней и правой нижней, записанными через":". На рисунке выделены следующие блоки:
B2:D4
A6:D6
F1:F7
===== PascalABC.NET =====
begin
var d := 0;
while True do
if ReadlnReal >= 22 then break
else d += 1;
Print( d div 7)
end.
1.
var a, b: integer;
begin
read(a,b);
if (a + b = 0) then writeln('Да') else writeln('Нет');
end.
2.
var num :integer;
begin
read(num);
if (num < 5) then writeln('меньше 5');
end.
3.
var num :integer;
begin
read(num);
if (num = 7) then writeln('Воскресенье');
end.
4.
var a,b,c :integer;
begin
read(a,b,c);
if (a * b * c = 0) then writeln('один равен 0');
end.
5.
var a,b :integer;
begin
read(a, b);
if (a - b = 0) then writeln ('они равны');
end.