Определить кратно ли заданное число 3 если нет вывести остаток

Question

Определить кратно ли заданное число 3 если нет вывести остаток

Answer 1

Var
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
end
else
begin
writeln(a mod 3);
end;
end.

Comments

Надо именно 2 "enb"

---

d*

---

Ой опять перепутал

---

Ну если ты напишешь по-другому то перепиши

---

Не я в этом не шарю

---

Var
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
else
writeln(a mod 3);
end.

---

Работает?

---

Ага

---

Спасибо