Дано целое число от 1 до 12 - номер календарного месяца. программа должна выводить название времени года. проходим тему: логические операции.

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.

 

                                                                                                 

1) компьютер может служить как библиотекарь - он хранит всю информацию которую ты сохранил в нем.

2)компьютер может и производить вычисления, обработку числового материала.

3)в компьютере ты можешь писать книги, рассказы, информацию и многое другое.

4)компьютер   заменяет и делопроизводителя.

5)компьютер - так же и неплохой личный секретарь, и день распланировать и многое другое.

6)компьютер - отличный бугхалтер, вычислит все что надо и нужно.

7)в справочном бюро и расписание рейсов узнаешь.

9) в компьютере можно и слова переводить.

10) компьютер передаст все письма от твоих друзей. знакомых и родственников. хороший почтальон.

11) на компьютере делают красивейшие рисунки и арты.

13) в компьютере можно создавать анимации и многое другое. вообщем конструктор.

14) в компьютере ты можешь создать эскизы новой одежды, аксессуаров.

15) также в компьюетере можно создавать эскизы новых зданий.

16)   в компьютере можно создавать дизайн одежды, домов, дизайн комнат.

17) на компьютере производят красивую музыку.

18) в компьютере можно узнать признаки разных болезней.

19) в компьютере ты можешь учиться и узнавать многое.

20) а сколько игр можно скачать на компьютор, кие только тебе по душе и по вкусу.

некоторые профессии я не написала ибо не смогла придумать что написать, или от непонимания обязонностей профессии.

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

function оставитьчисло(число: integer): boolean;

begin

  var последняяцифра: =abs(число mod 10);

  result: =последняяцифра.iseven and (последняяцифра< > 0) and

      (число mod последняяцифра=0)

end;

begin

  var массив: =arrrandom(12,-10,60);

  массив.println; // исходный массив

  массив: =массив.where(элемент-> оставитьчисло(;

  массив.println; // отфильтрованный массив

  var k: =readinteger('введите число k: ');

  var искомаяпоследняяцифра: =

      readinteger('какой цифрой заканчивается число? ');

  var список: =new list< integer> ; // создали пустой список

  for var индекс: =0 to массив.high do

    if abs(массив[индекс] mod 10) = искомаяпоследняяцифра then

    begin

      список.add(k);

      список.add(массив[индекс]);

      список.add(k)

    end

    else

      список.add(массив[индекс]);

    массив: =список.toarray;

    массив.println // результирующий массив

end.