begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
a := (a.Where(t -> t > 0) + a.Where(t -> t = 0) +
a.Where(t -> t < 0)).ToArray;
a.PrintLn
end.
Необходимо отсчитать 5 раз по 3 минуты = 15 минут, одновременно переворачивать 2 раза по 8 минут. когда 15 минут пройдут, в больших часах остается 1 минута, она заканчивается и переворачиваете часы с 3 минутами 2 раза и того получится 1+3+3=7 минут. задача решена
965 в двоичной системе: 1111000101
11100100011 в десятичной системе: 1827
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
//Я немного не в себе, так что могу ошибаться. Если что - я не виновата.
1 - определение модели, как это может быть ложью?
3 - модель не может обладать всеми признаками оригинала, но может повторять важнейшие.
4 - смотри пункт 3
7 - можно создавать модели, отражающие разные признаки одного и того же объекта.