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.
Объяснение:
Обидчивость и ранимость: такие люди склонны усугублять проблемы, глубоко переживая даже незначительные трудности. Они легко обижаются, долго не могут обидчика, воспринимают всерьез шутки над собой со стороны друзей и приятелей.
Алекситимия: не к осознанию и выражению своих чувств и переживаний. Проявление эмоций носит неадекватный, сдержанный или, наоборот, слишком экспрессивный характер. Человеку трудно осознать и осмыслить, что именно он чувствует в конкретной ситуации и подобрать средства выражения своих переживаний. Инфантильность: человек не к принятию важных решений, не может самостоятельно позаботиться о себе и не чувствует ответственности за свое состояние.
Заниженная самооценка: человек не ценит себя как уникальную личность, испытывает ряд психологических проблем при оценке себя и своего места в окружающем мире.
Низкая стрессоустойчивость: любая нестандартная ситуация надолго выбивает человека из колеи, принося ему множество неприятных переживаний.
Не выстраивать социальные взаимоотношения: человек испытывает трудности в общении, во взаимоотношениях с противоположным полом, склонен к частым конфликтам.
