Монитор и палитра 256 цветов(найти i вес одной точки)

Вес одной точки на экране равен глубине цвета, т.е. сколько бит информации несет эта точка. найдем глубину цвета i по формуле: 2^i = k, где k = 256 цветов. отсюда: 2^8 = 256 => глубина равна 8 => вес одной точки равен 8 бит

//pascal abc.net версия 2.2 сборка 790 var s: string; i,s1: integer; begin; readln(s1);   //вводим число str(s1,s); for i: =1 to length(s) div 2+length(s) mod 2 do {цикл от начала и до середины/центра в зависимости от чётности} begin;     if s[i]< > s[length(s)+1-i] then {если 1 символ не равен последнему, второй-предпоследнему и т.д.}     begin;           writeln('не палиндром');           exit; //если это условие хоть раз верно-программа завершается     end; end; writeln('палиндром'); //если условие не разу не оказалось верным end.пример ввода: 121пример вывода: палиндром

#include "stdio.h" int main() {     double a, b;     scanf_s("%lf%lf", & a, & b);     int i = 0;     while (a < b)     {         a += 0.03 * a;         i++;     }     printf("years: %d", i);     return 0; } c-version pascal-version var a,b,i; begin i: =0; readln(a, b); while (a < b) do begin a: =a+0.03*a; inc(i) end; writeln(i) end.