Program pr;
var
a,s,p : real;
begin
writeln('Введите сторону квадрата');
readln(a);
s := a*a;
p := 4*a;
writeln('Площадь = ');
write(s);
writeln('Периметр = ');
write(p);
readln();
end.
256 = 2⁸, поэтому пикселей 2⁸×2⁸ = 2¹⁶ пикселей
3 Кбайта = 3×2¹⁰ байт = 3×2¹⁰×2³ бит = 3×2¹³ бит.
На 1 пиксель приходится 3×2¹³/2¹⁶ бит = 3/2³ =3/8 бита.
Это и есть размер палитры. Но под пиксель нельзя отвести меньше бита, поэтому задача НЕКОРРЕКТНА.
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Ответ "В"..........................................
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...