Цикл вида for i:=a to b do (Pascal) выполняется b-a+1 раз.
Цикл вида for x=a to b step h (Basic) выполняется FIX((b-a)/h)+1 раз, где FIX - операция получения целой части числа путем отбрасывания его дробной части.
Индексами помечено, в каком порядке мы должны "собирать" получившееся число.
10 / 8 = 1₁ (2₂)
С шестнадцатеричной системой ничего не надо делать, ведь 10 в ней - это буква A.
<h2>Ответ</h2>
12₈ и A₁₆
512 пикс * 256 пикс * = 131072 пикс / 8 / 1024 = 16 кибипикс.
64 кбайт / 16 кбайт = 4 бит на цвет.
2^4 = 16 цветов поместятся.
const
students = 20;
var
marks: <em>byte</em> := students;
begin
writeln('Все пришли?');
var c: <em>string</em>;
readln(c);
if not (c in ['Yes', '1', 'True', 'Да']) then
begin
writeln('Сколько не пришло?');
var b: <em>byte</em>;
readln(b);
marks := (marks > b ? marks - b : 0);
end;
writeln(marks, ' оценок');
<span>end.</span>