Информатики, помогите!! Дано трехзначное число.Определить, если в нем нули.

Question

Информатики, помогите!! Дано трехзначное число.Определить, если в нем нули.

Answer 1

Var a : Integer;
Begin
  Readln(a);
  If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.

Comments

подозреваю, что задача и была именно на тему div и mod

---

нет, это на тему задачи с числами 

---

вот таких:Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр 
числа, в противном случае отбросить последнюю цифру.

---

это и подразумевает использования выше названных mod и div

---

а поскольку Вы не можете сопоставить использования этих операций с Вашими задачами - делаю вывод, что Вы очень не внимательный ученик... или просто ленивый

---

Какая бурная дискуссия по этой теме

---

))

---

всю ленту уведомлений мне запачкали

---

ну больше не буду... засим откланиваюсь

---

Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр 
числа, в противном случае отбросить последнюю цифру. Помогите !! я создал вопрос тоже 30 баллов даю

Answer 2

Var
   a:string;
  i,n:integer;
Begin
   Write('Введите число ');
   Readln(a);
   for i:= 1 to 3 do
      if a[i] = '0' then Begin write('Ноль есть'); n:=1; break; End;
   if n<>1 then write('Нулей нет');
End.

Comments

КанВул ты в вк есть ?

---

По условию дано именно число, а не строка. Но даже если и позволительно использовать строку, то цикл не нужен - достаточно использовать встроенную функцию POS: If POS('0',a)>0 then Writeln('ноль есть') else ...

---

Что ? я нечего не понял)))

---

Я комментарий оставлял для КанВула

---

Можно через POS, но только я писал для выполнения домашнего задания (он бы не смог объяснить учителю)