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

243

452

Посмотреть ответы 3

Ответы на вопрос:

Matvey1678

Информатика

4,4(3 оценок)

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

golicinskaya

Информатика

4,6(47 оценок)

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