У нас будет 4 итерации цикла: (условно) 4-я, 5-я, 6-я и 7-я. Каждую итерацию к предыдущему числу прибавляется 8. То есть:
0 (это ещё не цикл) + 8 + 8 + 8 + 8 = 32
<h2>Ответ</h2>
32
Function Compare(a,b:integer):char;
begin
if a<b then Compare:='<'
else if a=b then Compare:='='
else Compare:='>'
end;
var
x,y:integer;
begin
Write('Введите два числа через пробел: ');
Readln(x,y);
Writeln(x,Compare(x,y),y)
end.
Находим сколько бит нужно для кодировки 65356 цветов. нужно 16 бит. так как 2¹⁶=65536. 16*800*600=7680000 бит. и находим время
7680000 / 25600= 300 с
I)
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
<span>end.
</span>II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.