1. даны три числа a, b, c. определить, какое из них равно d. если равных d чисел нет, то найти максимальное из d-a, d-b, d-c. примеры: • вход: 10 4 15 4 выход: второе число равно 4 • вход: 5 13 9 7 выход: максимальная разность 2. 2. составить программу, которая при введенном возрасте человека правильно печатает: «вам х лет (год, года)! ». например: • вход: 44 выход: вам 44 года! • вход: 31 выход: вам 31 год! • вход: 11 выход: вам 11 лет! 3. одной банки краски хватает на покраску x м2 площади. забор имеет форму прямоугольника: высота а м, длина b м. сколько целых банок краски необходимо приобрести, чтобы покрасить забор? вход: х=5 а=3 b=200 выход: 120 вход: х=3.35 а=2.5 b=12 выход: 9 4. даны 2 числа. если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. вход: 25 -8 выход: -400 вход: 5 3 выход: 8 2

// pascalabc.net 3.3// cборка 1590 от 03.12.20171)begin  var (a,b,c): =readinteger3('введите a,b,c,d-> '); var d: =readinteger;   if a=d then begin println('первое число равно',d); exit; end;   if b=d then begin println('второе число равно',d); exit; end;   if c=d then begin println('третье число равно',d); exit; end;   a: =d-a; b: =d-b; c: =d-c;   var max: =max(max(a,b),c);   println('максимальная разность-> ',max); end.  2)begin  var a: =readinteger('введите возраст-> ');   if (a mod 10=1) and (a< > 11)      then writelnformat('вам {0} год',a)    else      if (a mod 10=2) or (a mod 10=3) or (a mod 10=4)          then writelnformat('вам {0} года',a)        else writelnformat('вам {0} лет',a); end.3)begin  var (x,a,b): =readreal3('введите x,a,b-> ');   writelnformat('нужно приобрести {0} банок краски',round((a*b)/x)); end.4)begin  var (a,b): =readreal2('введите a,b-> ');   if a+b> 10      then println(2*a*b)    else        if a> b          then        println(a+b,a-b)        else        println(a-b,a+b); end.     

program sport; uses crt; const n = 10; {количество оценок}var {раздел описания переменных}  a: array [1..n] of integer; {массив с оценками}  max,min,i: integer; {max и min - наибольшая и наименьшая оценки; i -счётчик}  sum: real; {сумма, а потом среднее арифметическое (результат)} begin  writeln('просим судей выставить свои оценки: '); {вывод строки}   for i: =1 to n do {организуем цикл ввода оценок}      begin          write(i,'-й судья: '); readln(a[i]); {вывод строки и ввод оценки}      end;   writeln(); {вывод пустой строки (для красоты)}  min: =a[1]; {предполагаем для начала, что первая оценка - наименьшая}  max: =a[1]; {также предполагаем для начала, что первая оценка - наибольшая}  sum: =0; {для начала сумма равна 0}  for i: =1 to n do {организуем цикл для перебора всех оценок}      begin          if max< a[i] then max: =a[i]; {если текущая оценка больше max, то запоминаем её в max}           if min> a[i] then min: =a[i]; {если текущая оценка меньше min, то запоминаем её в min}          sum: =sum+a[i]; {добавляем текущую оценку к сумме}      end;       sum: =(sum-max-min)/(n-2); {здесь самое интересное: из суммы всех оценок вычитаем наибольшую и наименьшую, а полученный результат делим на 8 - количество оставшихся оценок. получается среднее арифметическое}   writeln('итоговая оценка ',sum: 7: 2) {выводим результат} end.