Построить блок-схему для программы, протестировать при 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​

MozgVeka    1   04.05.2020 13:05    3