program sasa; function stepenj (val:integer):integer; var inp,i,tmp:integer; begin tmp:=val; Result:=1; Writeln ('Vvedi stepenj'); Readln (inp); for i:=1 to inp do Result:=Result*tmp; Writeln (Result); end;
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
