Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
Вот такая блок-схема получилась. слева основная программа, справа подпрограмма СЦЧ (сумма цифр числа): получает на вход число и суммирует составляющие его цифры
Объем изображения I= k*i, где k- количество пикселей, i- глубина цвета
Глубина цвета i=㏒₂N, где N - количество цветов изображения
k=256*128= 32768
i=㏒₂16=4
I=32768*4= 131072 бит
131072 бит/8= 16384 байт
16384 байт/1024= 16 Кбайт
Ответ: 16 Кбайт
Var
X:real;
Begin
Write('X = ');Read(X);
Write('Y = ',10*Sin(6*X)+20*Cos(12*X)+20*Sin(12*X));
End.