Отыскать и вывести на экран все целые числа из интервала от

Отыскать и вывести на экран все целые числа из интервала от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры
Pascal ABC

Задать свой вопрос
1 ответ
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программки:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number gt; 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.
Боцько Толик
а как можно поменять exit?
Яна Поставнина
exit - прерывает исполненье функции, если была найдена семерка (тогда результат функции будет true). Можно пойти от оборотного - изначально посчитать, что Result := false, а если отыскали семерку, то выполнить Result := true. Тогда exit можно не использовать.
Илья Хандакаров
спасибо))
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт