9. var a,min,i:integer;
begin
min:=100;
for i:=1 to 3 do
begin
Writeln('Введитп возраст ' ,i, ' призера спартакиады');
readln(a);
if a<min then min:=a;
end;
Writeln('Возраст самого младшего призера - ', min, ' лет');
end.
10. var k,l,x,y,y1:integer;
begin
Writeln('Введиье k');
Readln(k);
Writeln('Введиье l');
Readln(l);
Writeln('Введите координату x точки');
ReadLn(x);
Writeln('Введите координату y точки');
ReadLn(y);
y1:=(k*x)+l;
if y>y1 then Writeln('Прямая лежит над прямой');
if y=y1 then Writeln('Прямая лежит на прямой');
if y<y1 then Writeln('Прямая лежит под прямой');
end.
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.
Из предложений, связанных между собой какой-то общей темой.
В исходном файле 64 цвета: 2^N= 64 ---> N=6 бит для одного пикселя.
6*X - размер файла, где X - количество пикселей.
В черно - белом формате 2 цвета, (2^1=2) 1 бит - 1 пиксель.
6*X = X*1+50 *2^3
5*X=50*8
X=10*8 - количество пикселей
6*10*8 бит = 60 байт <--- ответ (размер исходного файла)