Question

дано трехзначное число. определить является ли средняя цифра делителем суммы первой и последней цифр

Answer 1

var x,i,x1,x2,x3:integer

s:string;

Begin

  read(x);

  s:=str(x);

  x1:=int(s[1]);

  x2:=int(s[2]);

  x3:=int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

End.