3. написать программу вычисления xy, не используя функцию возведения в степень (только цикл x, y вводятся с клавиатуры

Тривиальное решение. var   i,r,x,y: integer; begin   write('вычисление х в степени y, введите х,y: ');   readln(x,y);   r: =x;   for i: =2 to y do r: =r*x;   writeln('результат: ',r) end. тестовый прогон: вычисление х в степени y, введите х,y: 2 10 результат: 1024 вариант для любителей начинать циклы с единицы. var   i,r,x,y: integer; begin   write('вычисление х в степени y, введите х,y: ');   readln(x,y);   r: =1;   for i: =1 to y do r: =r*x;   writeln('результат: ',r) end.

Var x,y,p: integer; begin read(x,y); p: =x; for y: =y downto 2 do   p*=x; writeln(p); end.

Я уже устаю писать фразу уточняйте на каком языке программирования нужно написать", если же Вы этого не делаете, то Вам будет хуже, потому что напишут не на том, на котором Вам нужно, а на том котором удобно человеку. Вот к примеру мне удобно написать на С++, по этому напишу на нём. Алгоритм везде будет тот же.

int a,b,c;

double sr;

cin << a;

cin << b;

cin << c;

sr = (a+b+c)/3

if(a>sr){

cout << "Первое число больше за среднее арифметическое";

}

if(b>sr){

cout << "Второе число больше за среднее арифметическое";

}

if(c>sr){

cout << "Третье число больше за среднее арифметическое";

}

// Pascal ABC.NET

type

 Train = class

 

 private

 

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяOтправления: string;

   Информация: string;

   

   static function ЧастьНомера(s: string) := s.MatchValue('\d*').ToInteger;

 

 public

 

 constructor (ПН, НП, ВО: string; И: string := '');

 begin

   ПунктНазначения := ПН;

   НомерПоезда := НП;

   ВремяOтправления := ВО;

   Информация := И

 end;

 

 static procedure УпорядочитьПункты(var a: array of Train) :=

   a := a.OrderBy(p -> p.ПунктНазначения)

       .ThenBy(p -> p.ВремяOтправления).ToArray;

   

 static procedure УпорядочитьНомера(var a: array of Train) :=

   a := a.OrderBy(p -> ЧастьНомера(p.НомерПоезда)).ToArray;  

 

 function ToString: string; override :=

     $'{ПунктНазначения,-20} {НомерПоезда,-5} {ВремяOтправления,7}' +

         $'  {Информация}';

     

end;

function ДобавитьИнформацию(Self: array of Train;

     НомерПоезда, Информация: string): boolean; extensionmethod;

begin

 Result := True;

 var i := Self.FindIndex(p -> p.НомерПоезда = НомерПоезда);

 if i >= 0 then

   Self[i].Информация := Информация

 else

   Result := False

end;

begin

 var a := new Train[5];

 a[0] := new Train('Адлер','4c','15:40');

 a[1] := new Train('Санкт-Петербург','132п','07:19');

 a[2] := new Train('Казань','8ф','12:35');

 a[3] := new Train('Новосибирск','217п','18:05');

 a[4] := new Train('Адлер','18c','08:32');

 Train.УпорядочитьНомера(a);

 a.PrintLines;

 var np := ReadlnString('Номер поезда:');

 var info := ReadlnString('Добавочная информация:');

 if not a.ДобавитьИнформацию(np, info) then

   Println('Не найден номер поезда');

 Train.УпорядочитьПункты(a);

 a.PrintLines

end.