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

Question

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

Answer 1

Пишу на QBasic
CLS
INPUT A
C=A DIM 10 + A MOD 10
IF A MOD C = 0 THEN
PRINT "Да"
ELSE
PRINT "Нет"
END IF

Comments

var a,c: integer;
begin
c:= (a div 10)+(a mod 10);
if (a mod c)=0 then
writeln ('Да');
else
writeln ('Нет');
end.
Я не уверен что это так, просто пишу обычно на другом языке

---

спасибо

---

В паскале пропущен оператор ввода значения а

---

действительно)

---

лучший способ обучения - разбор программ мастеров)))