Цифры в номере по условию не зависят от буквы, поэтому если возможное количество букв n (n букв в алфавите) и наборов из 3 цифр, удовлетворяющих условию m, то всего возможно n*m различных номеров. Посчитаем m. Для начала посчитаем количество номеров, содержащих ровно одну цифру 7. их 3 * 9 * 9 = 243 (3 возможных позиции расположения этой цифры, а каждая из оставшихся цифр - одна из 9 (всего цифр 10, исключаем цифру 7). Среди них не может быть чисел, содержащих более 2 нулей, поэтому все эти числа подходят. Теперь посчитаем количество наборов из 3 цифр, не содержащих ни одной 7. Их 9 * 9 * 9 = 729 (всего возможно 9 цифр на каждой позиции). Но среди них есть ровно один набор, содержащий более 2 нулей: 000. Отнимем его: 729 - 1 = 728 m = 728 + 243 = 971 Всего номеров 971 * n, где n - количество букв в алфавите
1. const n=10; var a:array[1..n] of integer; i,max,min:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(51); write(a[i]:4); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln('max = ',max,' min = ',min); writeln(max,'-',min,' = ',max-min); end.
Пример: 23 23 46 28 38 21 46 5 19 27 max = 46 min = 5 46-5 = 41
2. const n=10; var a:array[1..n] of integer; i:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; writeln('Числа >5:'); for i:=1 to n do if a[i]>5 then write(a[i]:3); end.
3. const n=10; var a:array[1..n] of integer; i:integer; p:real; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(11); write(a[i]:3); end; writeln; p:=1; for i:=1 to n do if a[i]<>0 then p:=p*a[i]; write('p = ',p); end.
45
Объяснение:
for K in range(11) повторит s = s-5 11 раз, то есть мы 11 раз уменьшим s на 5, сумарно уменьшив на 55, 100-55 = 45