В Москве 16:00, разница 2 часа между вами и нами:)
Бенджамин Франклин изобрел молниеотвод.
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ую задачу
7 чудес света<span> – это самые грандиозные и масштабные в истории, созданные человечеством, памятники архитектуры и скульптуры Древнего мира. Каждый слышал </span>про 7 чудес света<span>, про их уникальность и не повторность. Это удивительные достопримечательности античной культуры. </span> 1 Пирамида Хеопса 2 Висячие сады Семирамиды 3 Статуя Зевса в Олимпии 4Храм Артемиды в Эфесской 5Мавзолей в Галикарнасе 6Колосс Родосский 7Александрийский маяк