Program Kr_2_4;
Var k, N, P, S: Integer;
Begin
Write('введите N: '); ReadLn(N);
P := 1;
S := 3;
For k := 1 TO N Do
Begin
P := P*S;
S := S*2;
End;
WriteLn('Ответ: ', P)
End.
Держи 3ью задачу
Program Kr_2_5;
Var k : Integer; a: array [1..100] of integer;
Begin
For k := 1 TO 100 Do
Begin
if (k mod 2 = 0) then a[k] := a[k] + k else a[k] := a[k] - k;
End;
End.
Держи 4ую задачу
Курение очень сильно вредит здоровью.
Курение приносит огромный вред здоровью. Из за курение высока вероятность получит рак легких .Окружающим тоже приносить вред и самому себе они дышат дымом от сигарет ,они могут заболеть туберколезом.
Лучше не курите и не пейте .
Введите здоровый образ жизни .
Занимайтесь спортом .
У меня все
1экваториальный, 2умеренных и 2 полярных
Тогда бы мир был совсем другой: Все жили бы сладко, так как Адам и Ева разозлили Бога. А ещё бы все ходили голые))))
Рассказ Белла-печорин стыдился своего поступка и чувствовал некоторую вину.
Бедные люди-макар девушкин писал письмо в котором очень сильно извинялся за свое предположение о том, что вера его любит.
мертвые души-главный герой чичиков натворил плохие дела с покупками и был неимоверно в этом виновен.