Var
s:string;
max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
if k>max then max:=k;
if (k<min) or (min=0) then min:=k;
k:=-1;
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
<span>end.</span>
Как мы понимаем что палитра состоит из двух цветов
значит вес одного пикселя равен одному
N=2^i=2
i=1
объём равен вес*ширина*высота
I=i*height*width=240000 бит
если что я переведу из бит в байт если надо
30000 байт 29,29 КБ
Program i7;
var
i,n,k: integer;
begin
writeln('vvedi 4etireh znachoe chislo');
readln(n);
k:=1;
while n>0 do
begin
k:=k*n mod 10;
n:=n div 10;
end;
writeln(k);
end.
Проверочное устройство (задание M-1) проходиш сковозь задание искатель и если за пикал то он не зделал дз
(50×3)×5=750 Я сама не знаю,предполагаю!