Program up1;
var
begin
writeln('введите число');
read(q);
for i:=1 to 10 do
begin
k:=k+1;
w:=q*k;
writeln(w);
end;
end.
A := 10;
b := 6;
a := a + b; //a=16 , b=6
b := a mod 3; //a=16, b=1
<span>d := a - b; //d=16-1=<u>15</u></span>
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
Program gt;
var n,i,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
writeln(s);
end.
Для кодирования одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32).
Высота изображения = 9*1600/16 = 900
Объем памяти = 1600*900*5 бит = 1600*900*5 / (8*1024) Кбайт ≈ 879 Кбайт.