Var
n,x:integer;
s:string;
begin
s:='Нет';
readln(n);
while n>0 do
begin
x:=n mod 10;
if x=7 then s:='Да';
n:=n div 10;
end;
writeln(s);
<span>end.</span>
441(5)
+ 122(5)
-----------
1113(5)
<u><em>Объяснение, как складывать числа в системе по основанию n</em></u> (у нас n=5)
Сложение производим "в столбик" в привычной нам десятичной системе счисления и начинаем с младших (правых) разрядов.
2+1=3. Если сумма меньше n (в данном случае меньше, т.к. 3<5), то записываем её "как есть" и переходим к следующему разряду.
4+2=6. Тут сумма больше n (6>5), поэтому вычитаем из этой суммы n (т.е. 5) и получаем 6-5=1. Эту единичку мы записываем, а за то, что вычли пятерку (т.е. n), пишем "один в уме", т.е. +1 переходит в следующий разряд.
4+1+1=6 (4+1 было, и еще +1 от переноса). Снова 6>5, как описано выше, снова 6-5=1, снова 1 пишем и +1 в следующий разряд.
+1 и даст 1, поскольку складывать больше нечего.
<u><em>Ответ:</em></u> 1113
Да.. но все зависит от самого ПО