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ую задачу
-Привет, с Днём Рождения.
-Спасибо.
-Желаю счастья, здоровья и всего наилучшего.
-Спасибо огромное.
-А сколько тебе исполняется?
- Мне исполняется 12 лет.
-Поздравляю тебя еще раз, я решил подарить тебе деньги.
-Спасибо.
Если в удлинитель включить одновременно холодильник, микроволновую печь, телевизор, а временами кухонный комбайн и <span>еще </span><span>утюг с пылесосом. то в результате мы имеем сильно перегруженную электропроводку с серьезно испорченной высокой температурой и опасной в плане возгорания изоляцией.</span>
Проект в какой форме? письменной или же презентация?
Не кричать на родителей,увожать,любить,ценить.