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ую задачу
На десятки километров тянется пуща.
густые леса сменяются полями болотами, лугами.
в пуще можно встретить различные виды зверей и птиц.
Об ученом, который смог создать "зелье" невидимости и принявший его. Сначала он вел тихую жизнь, будучи невидимым, но замотанным в бинты и одежду. Но затем он решает использовать свою способность в личных целях при помощи друга-ученого. Но тот не соглашается, вызывает полицию, и начинается погоня за невидимкой. Сам герой в конце погибает.
Если честно, читала давно, так что не все помню :)
Люди узнают о прошлом по наскальным рисункам, сделанными нашими предками;
из археологических раскопок; из летописей; из высказываний великих людей (писателей, поэтов, художников) о прошлом.