var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Ответ:
На Python:
x = 1
y = x ** 2 + 2 * x + 5
print(y)
Объяснение:
Ты бы хоть попробовал сам, ничего же сложного.
256-цвет ето 8бит
2-цвета ето 1бит
8-1=7бит убрали
7*1024=7168байта
7168*8=57344бита
х*8-х*1=57344 (Где х-количество пикселей)
57344/7=х
х=8192 пикселей
8192*8=65536
65536/8/1024=8Кб
если честно то можно но не все
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.