Question

Дано трехзначное целое число . определить число :
∙ первая цифра равна остатку от деления на 10 суммы второй и третьей
цифр числа ;
∙ вторая цифра равна разности (по модулю) первой и третьей цифр числа
;
∙ третья цифра равна остатку от деления второй цифры числа на первую
цифру числа .

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

Answer 1

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.

Объяснение: