Program n_16;
var i, n: Integer; a,y:Real;
begin
WriteLn ('Возведение в степень');
Write ('введите основание a>>');
ReadLn(a);
Write ('Введите показатель n>>');
ReadLn(n);
y:=1;
for i:=1 to n do y:=y*a;
Write('y=', y)
end.
составьте троссировочную таблицу для a=2 n=8

artemykas    2   27.04.2020 12:54    136