Раз 4 одинаковых грани, то log2(4) = 2 бита.
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;end.
1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)
500*400 = 200000 пикселей / 8 / 1024 = 24,4140625
80 кбайт / 24,4140625 = 3,2768 окргуляем в меньшую до целого = 3.
2^3 = 8 цветов
<span>k:=pos(' ',s); - позиция пробела
</span><span>t:=Copy(s,k+1,3); - копирование с 6 символа + 3(как-то так)
</span>Ответ: зим<span />