program bb; uses crt; const n=30; var m:array[1..n]of integer; i,k,s:integer; begin clrscr; randomize; for i:=1 to n do begin m[i]:=i; write(m[i],' '); end; writeln; write('K = '); read(k); writeln; s:=0; for i:=1 to n do if m[i] mod k = 0 then begin s:=s+m[i]; write(m[i],' '); end; writeln; writeln; writeln('Сумма элементов кратных данному К = ',s); end.
о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
uses crt;
const n=30;
var
m:array[1..n]of integer;
i,k,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
m[i]:=i; write(m[i],' ');
end;
writeln;
write('K = ');
read(k);
writeln;
s:=0;
for i:=1 to n do
if m[i] mod k = 0 then
begin
s:=s+m[i]; write(m[i],' ');
end;
writeln;
writeln;
writeln('Сумма элементов кратных данному К = ',s);
end.