Дано натуральное число. Определить есть ли в нем цифры 2 и 5 Pascal Не используя boolean...

Question

Дано натуральное число.
Определить есть ли в нем цифры 2 и 5
Pascal
Не используя boolean очень прошу, срочно надо!!!

Comments

Можно прочитать число строкой и поискать в каждом символе myStr[ i ] , если такой вариант устроит - напишу в ответе подробнее

---

какая может быть срочность в ночь с субботы на воскресенье?

---

Ну устраивает ответ - задавайте вопрос в новой редакции и учтите там все.

---

Потому что модератор следит за выполнением Правил. И никакой агрессии тут нет. Вы неправы, пытаясь заставить ответившего изменить ответ, потому что Вы что-то не учли, задавая свой вопрос.

---

факт в том, что я не просто хочу списать решение, а понять как решать, не понимаю почему со стороны модератора проявляется такая агрессия, если для вас это очень легко и вы не хотите писать решение, то зачем комментировать?

---

В воскресенье??? Ну-ну...

---

завтра сдаю это задание учителю, вот в чем срочность

Answer 1

Почему задачу нужно решать без использования строк - понятно, а почему нельзя использовать тип boolean - загадка. С учетом пожеланий программа может быть такой:
var n,k:integer;
begin
write('n=');readln(n);
k:=0;
while n>0 do
 begin
  if (n mod 10=2)or(n mod 10=5) then k:=1;
  n:=n div 10;
end;
if k=0 then writeln('В числе нет 2 и 5')
       else writeln('В числе есть 2 и/или 5');
end.

Comments

Вот такой ещё вариант:

---

Условие задачи можно понять по-разному. Можно - что надо разделять, а можно - что нет, а можно - что требуется, чтобы цифры в числе были обе (и 2, и 5).

---

Случаи "только 2", "только 5" и "2 и 5" решили не разделять?

---

var n,k2,k5:integer;
begin
write('n=');readln(n);
k2:=0; k5:=0;
while n>0 do
begin
case n mod 10 of
2:inc(k2);
5:inc(k5);
end;
n:=n div 10;
end;
if k2=0 then writeln('В числе нет 2') else writeln('В числе есть 2');
if k5=0 then writeln('В числе нет 5') else writeln('В числе есть 5');
end.

Answer 2

Самый простой по-моему вариант

Comments

Вы написали, не использовать boolean - его и не использовали, все тут нормально.

---

См. внизу историю вопроса, ответ ПРИНЯТ

---

как то, против правил не хочу идти)

---

Лан тогда не буду

---

Запрещено менять ответ с пометкой "Проверено"

---

тоже нет, только циклы

---

а массивы?

---

Сейчас изменю

---

А тогда надо писать в задании, чем можно пользоваться.

---

Спасибо конечно же, но строковый тип мы еще не изучали