Дан массив целых чисел А [10]. Найти количество трехзначных чисел, содержащих в себе цифру 7. . Диапазон элементов от 1 до 1000.
<span>Дан массив целых чисел А [10]. Найти количество трехзначных чисел, содержащих в себе цифру 7. . Диапазон элементов от 1 до 1000. Если задача решается написанием программы, то написать лучше в Паскале. Спасибо!</span>
Var a, b, x1, x2, x3, c, n, d, i, g :integer; s :array [1..10000] of integer; begin readln (n); for i:=1 to n do begin readln (s[i]); a:=s[i]; if (a>99) and (a<1000) then begin x1:=a div 100; x2:=a div 10 mod 10; x3:=a mod 10; if (x1=7) or (x2=7) or (x3=7) then inc(c); end end; writeln (c); end. <span> <em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em> </span>
Uses crt; const N=10; var a:array [1..N] of integer; x,k:integer; begin k:=0; for x:=1 to 10 do begin a[x]:=random(1000)+1; writeln('a[',x,']:',a[x]); if (a[x]>=100) and (a[x]<=999) then if (a[x] mod 10=7) or (a[x] div 100=7) or (a[x] div 10 mod 10=7) then inc(k); end; writeln('Количество трехзначных элементов, содержащих цифру 7:',k); <span>end.</span>