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

Question

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

Comments

Ну же

---

HELP

Answer 1

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

Comments

Спасибо

---

var
s1, s2, x: integer;
begin
readln(x);
s1 := x mod 10;
s2 := x div 1000;
x := s1 + s2;
if (x mod 3 = 0) then
writeln('Yes')
else
writeln('No');
end.

---

Можно так, если препод не поверит:)

---

Не за что

---

Слушай

---

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

---

Чем?)

---

Уже выложил

---

http://znanija.com/task/4463049

---

Вот