найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

Question

найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

Answer 1

Program n1;
Uses CRT;
Var a,b,c,d,s,i: integer;
begin
For i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i mod 1000 div 100;
c:=i mod 100 div 10;
d:=i mod 10;
If (a=5)or(b=5)or(c=5)or(d=5) then s:=s+i;
end;
writeln('summa ravna ',s);
readln
end.