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ую задачу
Люди сделали ГЭС на р Катунь но это привело к тому что река загрязнена и много отходов в воде, люди ничего не делают что бы предотвратить это.
Моросящий, ливневый, промозглый
На фабриках с химическими отходами; на исследованиях ученых;в покраске акриловыми веществами.
Где то в буквенном королевстве жили буквы.Царя этого королевства звали Гарик,а звали его так потому что тело его было как бука "Г",и была у него дочка Лара,Тело у нее было буковкой "Л",девочка была умницей красавицей слушала отца.Мать ее давно умерла когда Ларочке было всего лишь 3 года.Но дочка пошла в мать,стала умной и красивой,и слушала всегда отца.В буквенном королевстве 30 сентября ежегодный праздник по сбору урожая.Кто соберет больше всего вкусного урожая,получает золотой кубок с буквой Г,в честь короля Гарика.
И вот когда принцесса прогуливалась,улицами королевства своего отца она заметила как на потерялась маленькая девочка,она тело ее было круглым,как буква "О",И Лара не ошиблась,она подошла к малютке и спросила "Почему ты плачешь?И как твое имя?"
И девочка сквозь слез ответила"Меня зовут Огги,и я потерялась"
Лара с Огги начали искать женщину как описала девочка,желтую букву Ж.И когда они проходили последний магазин,они увидели женщину,похожую на описание девочки.Лара подошла к этой женщине ,и мигом она увидела свою дочку.Она сказала Ларе что везде ее обыскала и не могла найти,она поблагадорила принцессу,и вскоре они стали лучшими подругами.