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

2

Ответы и объяснения

2013-12-15T17:23:43+00:00
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.
2013-12-15T17:25:06+00:00
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.