1. Диск
2. Ухо
3. Дом
4. Лупа
5. Ель
6. ...
7. Телефон
8. ....
9. ...
Все слово: Компьютер
Begin
writeln('Привет, начинающий программист, тебя приветствует Pascal');
end.
<span>Англичане, американцы, французы, итальянцы называют @ «улиткой» . Африканцы, голландцы, поляки, немцы предпочитают называть его «обезьяньим хвостом» . Датчане могут сказать «слоновий хобот» , норвежцы «свиной хвост» , китайцы - «мышонком» , а венгры - «червяком» . Русские - «собакой».</span>
Непозиционной системой счисления<span> является ,к примеру,</span>римская (есть и другие) 2014 год это будет - MMXIV, октябрь это у нас 10 месяц будет - X и число сегодня 24 будет - <span>XXIV
В итоге: год </span>MMXIV,месяц X, число XXIV ,что означает по нашему 2014.10.24
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9