Срочно,нужна информатика,помогите пожалуйста,составить блок-схему,алгоритм и программу

1

Ответы и объяснения

2013-05-22T08:23:08+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program JuliaCrow;
var
 A,X,Y:integer;
begin
  write('Введите число A ');
  readln(A);
  writeln('**********************************');
  X := A*A; // получаем А^2
  X := X*A; // получаем А^3
  Y := X*X; // получаем А^6
  Y := Y*Y; // получаем А^12
  Y := Y*X; // получаем А^15
  writeln('Результат = ',Y);
end.