Question

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

Answer 1

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

b1006221f6f866c9500455e297b264d8.pas

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

b1006221f6f866c9500455e297b264d8.pas

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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.