Требования безопасности перед началом работы:
1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой
2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви
3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся
4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету
5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены
6. Разрешается работать только на том компьютере, который выделен на занятие
7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования
8. Запрещается выключать или включать оборудование без разрешения преподавателя
9. Напряжение в сети кабинета включается и выключается только преподавателем
Код программы:
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.