Функция 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.
Маша---Оля---Катя ! Вася---Вера Маша дружит только с Олей Оля дружит с Машей и Катей Катя дружит с Олей и Васей Вася дружит с Катей и Верой Вера дружит только с Васей У Оли, Кати и Васи по два друга, а у Маши и Веры по одному другу
Таблица ИМЕНА ДРУЗЬЯ КОЛ-ВО (друзей) Оля Маша и Катя 2 Катя Оля и Вася 2 Вася Катя и Вера 2 Маша Оля 1 Вера Вася 1
Код программы:
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.
!
Вася---Вера
Маша дружит только с Олей
Оля дружит с Машей и Катей
Катя дружит с Олей и Васей
Вася дружит с Катей и Верой
Вера дружит только с Васей
У Оли, Кати и Васи по два друга, а у Маши и Веры по одному другу
Таблица
ИМЕНА ДРУЗЬЯ КОЛ-ВО (друзей)
Оля Маша и Катя 2
Катя Оля и Вася 2
Вася Катя и Вера 2
Маша Оля 1
Вера Вася 1