Дано трехзначное целое число . определить число : ∙ первая цифра равна остатку от деления на 10 суммы второй и третьей цифр числа ; ∙ вторая цифра равна разности (по модулю) первой и третьей цифр числа ; ∙ третья цифра равна остатку от деления второй цифры числа на первую цифру числа . например, = 583, тогда = 123. должно быть выведено именно число , (оно может иметь меньше разрядов, если первые цифры получатся равными нулю), а не выведены на экран последовательно три цифры.

program abc;

var s:string;

begin

  readLn(s);

  s:=IntToStr((StrToInt(s[2])+StrToInt(s[3])) mod 10)+IntToStr(abs(StrToInt(s[1])-StrToInt(s[3])))+IntToStr(StrToInt(s[2]) mod StrToInt(s[1]));

  writeLn(s);

end.

Объяснение:

Uses crt;
var r: array [1..10] of integer;
      nev, n, min,i, zap:integer;
begin
   clrscr;
   write('Введите возраст невесты: '); readln(nev);
   write('Введите число женихов: '); readln(n);
   if n<2 then
   for i:=1 to n do
   begin
   write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
   end;

   i:=0; zap:=0;
   while (zap=0) and (i<=n) do begin  
     i:=i+1;
     min:=nev-r[i];
     if min>0 then zap:=i;
   end;
   if i<>n then
   begin
     for i:=zap to n do
     begin
        if min>(nev-r[i]) then
        begin
           zap:=i;
           min:=nev-r[i];
         end;
     end;
     writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
     writeln ('По счету это ',i,'-ый жених');
   end
   else writeln('Среди женихов нет подходящего для нашей невесты.');
  end;
  else writeln('Число женихов должно быть более 2!');
end.
     

Бесконечность – не предел! Этот девиз из известного высказывания Стива Джобса как нельзя лучше отражает происходящее в настоящее время проникновение прогрессивных технологий в жизнь человека. Современная физика предполагает, что в основе окружающей человека реальности лежит бесконечность. Перед бесконечностью все равны и кибернетический суперинтеллект будущего и человек с его недостатками, всем есть экологическая ниша для жизни. Будущее принадлежит не человеку и не роботу, а своеобразному кентавру – человеко-машинному комплексу. Из выше сказанного тривиально следует команду назвать: Кентавры.