var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
V = K * I, где
V - объем;
K - размер изображения;
I - количество бит на символ.
N = 2^i, где
N - количество цветов.
V = K * I .
I = V/K = (2*2^13) / (50 * 100) = 2^14 / (2 * 25 * 25 * 2^2) = 2^14 / (2^3 * 25^2) = 2^11 / 625 = 2048 / 625 = 3,2768 ~ 4 бита.
N = 2^i.
N = 2^4.
N = 16 цветов.
На листочке всё написанно, но на всякий пожарны диктую ответы. Это48:
4,
6,
5,
4,
7.
Это49:
5,
2,
5,
5,
7.
<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
Ваш алгорим не оптимален, совершенно незачем делать "<em>for k:=100 to 1000000000 do"</em>, т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
then begin
a:= k div 20;
b:= k div 10;
if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
end;
end.