Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию с

program SomeNameHere;

var

 i: integer;

 fullname: string;

begin

 Write('Введите ваше полное имя: ');ReadLn(fullname);

 i := 0;

 while i < 10 do begin

   WriteLn(fullname);i := i + 1;

 end;

end.

Объяснение:

Сначала массив Dat заполняется числами 2, 8, 6, ..., 7.
Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются).
Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.

Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].

ответ: 9.  

Выбор будущей профессии — это очень важный шаг в жизни каждого человека. Некоторые выпускники школ долго сомневаются, так как им трудно определиться, другие же наоборот принимают твердое решение раньше. Для того чтобы стать тем, кем хочешь нужно сначала выучиться и получить образование. Если будущая профессия очень нравиться тогда и учиться будет интересно и не трудно.

Что касается меня, то я хочу стать программистом. Эта профессия привлекла меня, когда я учился в младших классах. Тогда мы начали изучать информатику, которая стала моим любимым предметом. Я всегда очень внимательно слушаю учительницу. Мне интересны абсолютно все темы по этому предмету, поэтому я часто задаю много дополнительных вопросов на уроках. Дома у меня есть много разных книг: о строении компьютера, о работе с разными программами, об основах программирования, о поломках, о вирусах и другие. Кроме того, я обычно читаю дополнительную литературу по информатике в нашей школьной библиотеке или ищу интересующую меня информацию в интернете.