Как написать задачу в Паскале? Дано целое трехзначное число N. Верно ли, что в нем есть хотя бы одна цифра 7?
Как написать задачу в Паскале?
Дано целое трехзначное число N.
Верно ли, что в нем есть хотя бы одна цифра 7?
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы