Данное выполняется в программе pascalabc.net. поэтому я за него такое кол-во . если вы заранее не знаете, как это решается, то ничего не пишите. те, кто работал с этой программой, прошу . заранее . написать программы для решения . условия в программе - обязательно. 1. дано целое число. определить: a. является ли оно четным; b. оканчивается ли оно цифрой 7; c. оканчивается ли оно четной цифрой? 2. даны радиус круга и сторона квадрата. у какой фигуры площадь больше? 3. даны объемы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 4. известны два расстояния: одно в километрах, другое - в футах (1 фут = 0, 45 м какое из расстояний меньше? внимание! любые попытки получить "на халяву", я буду отмечать, как нарушение.

Var b,c: boolean; a: integer; begin readln(a); writeln(not odd(a)); if a mod 10 = 7 then b: =true; writeln(b); writeln(not odd(a mod 10)); end.var r,a: integer; beginread(r,a); if a*a> pi*r*r then writeln('square')else if a*a< pi*r*r then writeln('circle')else writeln('equal'); end.var m1,m2,v1,v2: integer; beginread(m1,v1,m2,v2); if m1/v1> m2/v2 then writeln('p1> p2')else if m1/m2< m2/v2 then writeln('p1< p2')else writeln('p1=p2'); end.var a,b: real; beginread(a,b); b*=0.45; if a> b then writeln(b)else if a< b then writeln(a)else writeln('equal'); 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.