Программа на Паскале прилагается.
Ответ: 2;
Решение:
1)6 мегапикс. = 6000000 пикс;
2) Пусть x ширина картинки, тогда y ее длина.
Уравнение: X * 1,5Y = 6000000
3) Находим отношение (1,5). Получается уравнение: 6000000 / X * Y = 1,5;
4)Затем по пропорции находим произведение X и Y. Получилось: 6000000 / 1,5 = X * Y; 4000000 = X * Y;
5)Здесь картинка получается квадратом (условно, без уменьшение ширины, без 1,5);
6)Отсюда можно сделать вывод, что умножение Y на 1,5 дает ответ 3, а разрешение картинки равно: X * Y = 2 * 3 = 6 мегапикс.
P. S. Извиняюсь, что немного муторно, но Информатика есть инорматика...
Я, конечно, могу ошибаться, но, мне кажется, что это 999
var
k,l,n,i: integer;
a: array[1..100] of boolean;
b: char;
begin
k:=0; l:=0;
write ('Введите длину массива: ');
readln (n);
writeln ('Введите массив:');
for i:=1 to n do begin
readln (b);
case b of
'F','f': a[i]:=false;
'T','t': a[i]:=true;
else begin writeln ('неверные данные '); exit; end;
end;
if a[i]=true
then k:=k+1
else
if (k>0) and (k>l)
then begin l:=k; k:=0 end
else k:=0;
end;
if (k>0) and (k>l) then l:=k;
for i:=1 to n do begin
write (a[i]:7);
if i mod 8 =0 then writeln;
end;
writeln;
writeln ('Длина = ',l)
end.
----------------результат:-----------------
Введите длину массива: 16
Введите массив:
t
t
t
t
t
t
f
t
t
t
t
t
f
t
t
t
True True True True True True False True
True True True True False True True True
Длина = 6
Если просто написать формулу, то это выглядит так: R=D/K
