RGB = 256*256*256 цветов = 16`777`216 цветов = 2^(8*3) = 2^24 т.е. 24 бита на пиксель
24*40*40 бит = 38`400 бит = 4`800 байт
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Рассматриваем <span>IP адрес: 215628319, начиная с конца и помня, что октет не может содержать число большее 255.
Слева-направо выделяем октеты: 19 (319>255 - нельзя), 83, 62, 215.
Получаем единственно возможный адрес 215.62.83.19
</span>
Program n1;
var s: string;
begin
s:='stroka';
if length(s)<10 then s:=s+'КЛМНОПРСТ';
write(s);
end.
В семеричной системе счисления используются цифры 0..6
Количество искомых цветов проще всего вычислить простым перебором:
1) 100 - 1
2) 200, 201, 210 - 3
3) 300, 301, 302, 310, 311, 320 - 6
4) 400, 401, 402, 403, 410, 411, 412, 420, 421, 430 - 10
5) 500, 501, 502, 503, 504, 510, 511, 512, 513, 520, 521, 522, 530, 531, 540 - 15
6) 600, 601, 602, 603, 604, 605, 610, 611, 612, 613, 614, 620, 621, 622, 623, 630, 631, 632, 640, 641, 650 - 21
Итого: 1+3+6+10+15+21 = 56