var
str, num: <em>string</em>;
begin
readln(str); <em>//str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';</em>
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.
Ну и почему нельзя добавить только картинку, нужно еще писать чегойто...
10110111= 167 в десятичной сист. счисления.
Жил был планшет. Маша каждый день с ним игралась и фотографировалась. Она каждый день скачивала приложения на планшет. После чего в планшет ничего не влезало. Из 20гигабайтов были свободны только 1гигабайт. Ему стало плохо и он начал глючить. Маша перестала в него играть и родители купили ей телефон на 64гигабайт. Планшет обиделся и очень сильно заболел. Родители увидев это, отвезли его на ремонт. Там его чинили 2недели. Маше нравился ее новый телефон, но она скучала по своему старому доброму планшету. После ремонта, планшету стало легче. Маша отдала свой телефон маме, а планшет обратно взяла к себе. Сразу же купила ему зарядное устройство, красивенький чехол и прикольный брелок. После этого, она стала дорожить им и не скачивать вирусные приложения!