Составьте программу решения следующей : с первой яблони собрали одно яблоко, со второй 2 яблока, с третьей 3 яблока, с четвертой 4 яблока и т.д. и наконец с 15 - 15 яблок сколько яблок собрали со всех 15 яблонь?

Var a,b: byte; begin a: =0; for b: =1 to 15  a: =a+b; write(a); end.

var

  n, i: integer;

  s: string;

  isu: boolean;

begin

  write ('введите число: ');

  read (n);

  if (n > = 1000) and (n < = 9999) then

    writeln ('это число четырехзначное')

  else

    writeln ('это число не четырехзначное');

  s : = inttostr (n);

  isu : = true;

  for i : = 1 to length (s) - 1 do begin

    if s [i] < = s [i + 1] then begin

      isu : = false;

      break;

    end;

  end;

  writeln;

  if isu then

    writeln ('цифры расположены в порядке убывания')

  else

    writeln ('цифры не расположены в порядке убывания');

end.

Факультет географии и природопользования КазНУ им. аль-Фараби был открыт в 1948 г. Тогда он имел название геолого-географический и был представлен двумя отделениями – геологическим и географическим. В связи с закрытием геологического отделения в 1960 году факультет был переименован в географический. Сегодня факультет отвечает самым высоким требованиям и международным стандартам. За время своего существования факультет подготовил более 5 тыс. специалистов географического профиля: географов, метеорологов, гидрологов, экологов, картографов, менеджеров туризма и др.

У истоков факультета стояли выдающиеся ученые-географы, внесшие большой вклад в развитие географической науки в Казахстане. Среди них назовем проф. В.А.Соколова, проф. М.Ж.Жандаева, проф. Г.Г.Муравлева, доц. З.П.Коженкову, проф. В.И.Коровина, проф. А.В.Чигаркина и др. Большой вклад в становление географического факультета внес на посту ректора КазНУ академик У.А. Джолдасбеков.