Question

Надо написать две программы на языке Паскаль. Одну с циклом while, а вторую с циклом for. K=a^n (a в степени n). Для программы цилка for нарисовать блок-схему.

Дано: a, n
Найти: K

Answer 1

Ответ:

1.

var a,n,k,i:integer;

begin

write('Введите основание степени (целое число) ');

readln(a);

write('Введите показатель степени (целое число) ');

readln(n);

k:=1;

i:=0;

while i < n do

begin

k:=k*a;

i:=i+1

end;

writeln(a,'^',n,' = ',k)

end.

2.

var a,n,k,i:integer;

begin

write('Введите основание степени (целое число) ');

readln(a);

write('Введите показатель степени (целое число) ');

readln(n);

k:=1;

for i:= 1 to n do k:=k*a;

writeln(a,'^',n,' = ',k)

end.