Question

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

Answer 1

var
  iNum: integer;
begin
  readln(iNum);
  writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
end.

Answer 2

А еще можешь помочь?)

Answer 3

Уже выложил