Дано натуральное число. Определить есть ли в нем цифры 2 и 5. Pascal
Дано натуральное число. Определить есть ли в нем цифры 2 и 5. Pascal
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program FindDigits;
va
number, digit, count2, count5: integer;
begi
count2 := 0
count5 := 0;
write('Enter a number: ')
readln(number);
while number > 0 d
if digit = 2 thebegi
digit := number mod 10
number := number div 10;
count2 := count2 +
else if digit = 5 the
count5 := count5 + 1;
end;
if (count2 > 0) and (count5 > 0) the
writeln('The number contains both 2 and 5.'
els
writeln('The number does not contain both 2 and 5.');
end.