Помогите с Паскалем! Циклы

01.01.2001

Помогите с Паскалем! Циклы
Не могу понять в чем ошибка, помогите разобраться и исправить! Заранее спасибо)

Вот условие: Составить алгоритм, написать программу возведения числа А в степень В.

Вот моё решение: begin
writeln('Введите степень числа');
readln(b);
c:=a;
if b=0 then c:=1
else
if b>=2 then for i:=2 to b do c:=a*c
writeln('c= ',c:0:2)
else writeln('данные неверны');
readln;
End.

Нужно только исправить ошибки.

  • program ab;
    uses crt;
    var i,b,c,a:Integer;

    begin
    write('Введите степень числа B'); readln(b);
    write('Введите числo A '); readln(a);
    c:=a;
    if b=0 then c:=1
    else
    if b>=2 then
    for i:=2 to b do begin c:=a*c;
    writeln('c= ',c) end;
    writeln('a^b= ',c);
    readln;
    End.

  • Если ещё актуально, пиши на почту, помогу.

Вас заинтересует