var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, при использовании 2 цветов - log(2)2 = 1 бит.
70 байт = 70*8 бит
Пусть K - количество точек изображения. Тогда 8*K - 1*K = 70*8 ⇒ K = 80
Размер исходного файла = 8*80 = 640 бит = 80 байт
<span><span>Program f;
</span><span>uses crt;
</span><span>var a:array [1..5] of integer;
</span><span> b,i,h:integer;
</span>begin
<span>clrscr;
</span><span>for i:=1 to 5 do</span><span> begin</span><span> write('vvod ',i,' el mas');
</span><span> readln(a[i]);</span><span>
end;
</span><span>for h:=1 to 25 do
</span><span>for i:=1 to 4 do
</span><span>if (A[i]>A[i+1]) then</span><span>
begin
</span><span> b:=A[i+1];</span><span>
A[i+1]:=A[i];</span><span>
A[i]:=b;
</span><span>end;
</span><span>for i:=1 to 5 do</span><span>write('vivod mas',a[i],' ');
</span><span>readkey;
</span><span>end<span>.</span></span></span>