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

Question 1

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

Question 2

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

Question 3

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

Question 4

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

Question 5

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

Question 6

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

Question 7

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

Question 8

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

Question 9

Почему задачу нужно решать без использования строк - понятно, а почему нельзя использовать тип 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.

Question 10

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

Question 11

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

Question 12

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

Question 13

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.

Question 14

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

Question 15

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

Question 16

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

Question 17

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

Question 18

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

Question 19

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

Question 20

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

Question 21

а массивы?

Question 22

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

Question 23

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

Question 24

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