Ответ:
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.
Линейка- для измерения расстояний, транспортир-углов.термометр- для измерения температуры.барометр- для измерения атмосферного давления.компас- для ориентировки по сторонам света.телескоп- для наблюдения за небесными телами.микроскоп-для наблюдения за микромиром
1.1.1 0,01111 = <span>0.36 (8)
1.1.2 </span>0,01111 = 0.78 (16)<span>
1.2.1 </span>1010101 = 125 (8)
1.2.2 1010101 = 55 (16)
------------------
2.1 <span>101110
2.2 </span><span>10111
2.3 </span><span>11101111.0001001
---------------------
3.1 1101=D
3.2 </span>0,11111><span>0,22
3.3 </span><span>35,63 > 16,C</span>
Нет таких доказательств. Как можно моделировать в программе, которая предназначена совсем для другого?
