Таблица - в прилагаемом файле.
А где сама задача? ты можешь прислать фотографию задания , или написать
DPI значает Dot per Inch
В одном дюйме 2,54cм
<span>Перевод размера изображения в дюймы:</span>
10/2.54 = 3.94
15/2.54 = 5.91
3.94 * 5.91 = 23.29 inch^2
Разрешающая способность сканера 600×600 dpi
значит в 1 inch^2 = 600*600 = 360 000 точек
Во всем изображении
23.29 inch^2 * 360 000 dpi = 8 384 400 точек
Глубина цвета 3 байта. 3*8бит = 24 бита
8 384 400 точек * 24 бит = 201 225 600 бит
201 225 600 / 8 = 25 153 200 байт
25 153 200 / 1024 * 1024 примерно равно 24 мегабайта
Ответ:
program SubStrings;
uses
SysUtils, StrUtils;
var
s, w: AnsiString;
i, iw, iMax: Integer;
setN: Set Of Char;
begin
setN := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
Write ('Введите строку: ');
ReadLn (s);
w := '';
iMax := 0;
WriteLn;
for i := 1 to Length (s) do begin
if w = '' then begin
if s [i] in setN then begin
w := w + s [i];
end
end else begin
if s [i] in setN then begin
w := w + s [i];
end else begin
iw := StrToInt (w);
Write (iw, ' '); // для вывода "очищенной" строки, нужно при проверке
if iw > iMax then
iMax := iw;
w := '';
end;
end;
end;
WriteLn;
WriteLn ('Максимальное число = ', iMax);
ReadLn;
end.