Вpascalabc дана последовательность целых чисел,в этой последовательности есть два нуля, располагаются - id481269620200623 от kindness5 23.06.2020 12:55

Question

Информатика: Вpascalabc дана последовательность целых чисел,в этой последовательности есть два нуля, располагаются они в разных местах, надо найти количество чисел стоящих между этими нулями.

kindness5 · Accepted Answer

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

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 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.
Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц

Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц

MOGZ ответил