23.05.2010, 21:16
|
|
Постоянный
Регистрация: 22.11.2008
Сообщений: 395
С нами:
9192803
Репутация:
776
|
|
что то в этом роде (давно на ТР не писал).
Код:
Program P1;
var
x, sum, i: integer;
Begin
readln(x);
sum := 1;
for i:=1 to x do sum :=sum*3;
writeln(sum);
End.
Последний раз редактировалось cel1697i845; 23.05.2010 в 21:21..
|
|
|