begin writeln('Введите n: '); readln(n); n1 := n; a := 0; while n <> 0 do begin a := sqr(n mod 10) + a; n := (n div 10); end; if sqr(n1) = a then writeln('Квадрат числа n равен сумме квадратов его цифр') else writeln('Квадрат числа n не равен сумме квадратов его цифр'); end.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
a, n, n1: longint;
begin
writeln('Введите n: ');
readln(n);
n1 := n;
a := 0;
while n <> 0 do
begin
a := sqr(n mod 10) + a;
n := (n div 10);
end;
if sqr(n1) = a then writeln('Квадрат числа n равен сумме квадратов его цифр')
else writeln('Квадрат числа n не равен сумме квадратов его цифр');
end.