Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста.
Надо сделать по Паскалю а у меня не получается. Выручайте.
Разработать алгоритм, который выводит первые четыре степени числа a.

Ответ оставил Гость

Var a,b,c:integer;
begin
readln(a); //читаем число
c:=a;
writeln(a); //1 степень любого числа- оно само
for b:=1 to 3 do //остальные 3 степени
begin;
a:=a*c;  //умножаем на начальное число
writeln(a);
end;
end.