Составь рассказ о жизни и творчестве Ганса-Христиана Андерсена. Информацию найди в Интернете, энциклопедии. Запиши план своего рассказа.

1) Г.-Х. Андерсен родился в 1805 году в городе Оденсе в Дании.
2)    Родители   Андерсена   —   бедный   башмачник и прачка.
3)  В детстве Ганс дружил с будущим королем Фредериком, будучи его родственником.
4) В 1816г. умирает отец Андерсена, Ганс служит подмастерьем у ткача и портного.
5)  В 14 лет Андерсен переезжает в Копенгаген с целью поступить в театр.
6) Андерсен стал актером Королевского театра, но был уволен и стал писать пьесы.
7) Андерсен после всех неудач с театром учится в школе.
8)  Не завершив учебу, Андерсен начинает писательскую деятельность.
9) Андерсен никогда не был женат и не имел детей.

Астрономия» – слово древнегреческого происхождения. так называется наука, изучающая небесные тела и законы их движения. звезды и планеты интересовали человека с древних времён .
столь раннее и быстрое развитие астрономии объясняют острой потребностью человека в знаниях, важных для безопасных путешествий и успешного ведения хозяйства.

разумеется, они работают с телескопом, рассматривая в него небесные тела и глубины космоса. но тратят на это всего пару часов. чем же тогда они занимаются в оставшееся время? основная астронома заключается в обработке данных, которые были получены им в результате наблюдений. кроме того, он должен: моделировать процессы, происходящие в космосе; составлять формулы, вести расчеты; делать карты звездного неба.
чем конкретно будет заниматься астроном, зависит от той специализации, которую он для себя выберет. среди основных направлений астрономии можно выделить: космологию; небесную механику и звездную динамику; ; радиоастрономию; галактик и звезд; астрономическое приборостроение.

Задание 1. Программа if18

Var

A,B,C:Real;

Begin

WriteLn('Введите числa A,B и C: ');

ReadLn(A,B,C);

If (C = B) Then

WriteLn('Номер числа, отличного от остальных: ',1)

Else

If (A = C) Then

WriteLn('Номер числа, отличного от остальных: ',2)

Else

WriteLn('Номер числа, отличного от остальных: ',3);

End.

Задание 2. Программа Case1

Var

x:Integer;

Begin

ReadLn(x);

Case x Of

1:WriteLn('Понедельник');

2:WriteLn('Вторник');

3:WriteLn('Среда');

4:WriteLn('Четверг');

5:WriteLn('Пятница');

6:WriteLn('Суббота');

7:WriteLn('Воскресенье');

End;

End.

Задание 3. Программа For7

var

A,B:integer;

temp:integer;

i:integer;

begin

temp:=0;

repeat

writeln('Введите A и B:');

readln(A,B);

until (A<B);

for i:=A to B do

begin

temp:=temp+i;

end;

writeln('Сумма :',temp);

end.