Помню, когда-то давным-давно, еще в школе брат писал сочинение на тему: "Чем мне нравится Татьяна Ларина". Свой великий труд он начал неожиданными словами: "Татьяна Ларина мне совсем не нравится..." Вот и я начну как-то также. Абхазия, несмотря на расклеенные по всей страны плакаты с фразой "Абхазия - страна души", не оказалась таковой. К моему величайшему сожалению. Ну, а если попроще, то поездка оказалась не очень удачной.
Как так получилось? Не знаю. Может, свою роль сыграл неверный выбор времени поездки, может, неудачное место проживания, а, может, и первоначальная излишняя идеализация этой страны...
Честно говоря, попасть в Абхазию я мечтала уже давно. Каждую наступающую весну я планировала, что вот в этом-то году уж обязательно. Как только наступит осень и улицы нашего северного городка расползутся в грязные лужи, сверху начнет сыпать ледяными иголками дождь, я обязательно уеду в теплые южные края, где все еще светит солнце, столбик термометра переваливает за двадцать, а в прозрачной морской воде плавают ожидании меня стаи дельфинов. Однако, когда дело доходило до осени, все время возникали какие-то спешные дела или идеи по поводу других поездок, и Абхазия плавно перекочевывала в планы на следующий год.
Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.
Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.
Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.
Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.
Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.
Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.
Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.
Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.
Объяснение:
решение задания по геометрии
