PascalABC.NETbeginvar n := ReadInteger('Введите длину массива:');var a := ReadArrInteger('Введите элементы массива:',n); Print('Отсортированный по возрастанию:',a.Order.JoinToString);end.
Пример работы:
Спасибо
Ответ дал: Гость
на паскале:
program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Ответ дал: Гость
двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся.
Популярные вопросы