Как написать задачу в Паскале?

Дано целое трехзначное число N.

Верно ли, что в нем есть хотя бы одна цифра 7?

Question

Информатика

Алевтин

18 апреля, 03:50

Как написать задачу в Паскале?

Дано целое трехзначное число N.

Верно ли, что в нем есть хотя бы одна цифра 7?

+3

Ответы (2)

Знаете ответ на вопрос?

Парфений · Answer 1

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.

Мелентий · Answer 2

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.

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

Как написать задачу в Паскале?

Дано целое трехзначное число N.

Верно ли, что в нем есть хотя бы одна цифра 7?