Лицо!!!!!!!!!!!!!!!!!!!!!!!!
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
1х25=25кадров в секунду
1мин.=60сек.
25х60=150кадров в минуту
1,5часа=90 мин.
90х150=13500мб.
uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do
Begin
if (a mod 2<>0) then x1:=x1*a;
if (a<0) then x2:=x2+1;
readln(a);
end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.
Музыкант дружил с Андреевым, сейчас дружит с Ивановым [3], значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым [4], но был дружен с музыкантом, значит, Петров - тоже не музыкант. Поэтому музыкант Сидоров.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.
