Question

Как написать задачу в Паскале? Дано целое трехзначное число N. Верно ли, что в нем есть хотя бы одна цифра 7?

Answer 1

Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.

Answer 2

var
  n: integer;
begin
  readln(n);
  if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
  else writeln(false);
end.