Размещено 5 лет назад по предмету
Информатика
от grob777
построить блок-схему для программы, протестировать при a=2, n= 5 и записать все действия program n_16 Var i, n:integer ; a, y : real ; begin writeln ('Возведение в степень') ; write ('Введите основание а >>') ; readln(a) ; write ('Введите показатель n>>') ; readln(n) ; y:=1; for i:=1 to n do y:=y*a; writeln ('y=', y) end