Ответ:
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.
Включить другие водопады и написать года их открытия/ высоту
В байте 8 бит, в килобайте 1024 байта, в МБ 1024 КБ и т.д.
614400 бит / 8 = 76800 байт
76800 байт / 1024 = 75 килобайт
75 / 1024 = 0.073 МБ (приблизительно)
614400 бит 76800 байт 75 КБ 0.073 МБ
4194304 бит 534388 байт 512 КБ 0.5 МБ
2097152 бит 262144 байт 256 КБ 0.25 МБ
33554432 бит 4194304 байт 4096 КБ 4 МБ
Var a,b,s
begin
readln
end.