Поделитесь своими знаниями, ответьте на вопрос:
1) В программе описан одномерный целочисленный массив с индексами от 1 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i:=1 to 10 do A[i]:= i + 1; for i:=2 to 9 do A[i]:= A[i-1]+ A[i+1];
n = 66
count = 0
for i in range(67):
for j in range(34):
for k in range(14):
for l in range(7):
if n == i*1+j*2+k*5+l*10:
count += 1
print('Всего
Та же программа на языке Pascal:
var i,j,k,l,n,count:integer;
begin
n := 66;
count := 0;
for i:=0 to 66 do
for j:=0 to 33 do
for k:=0 to 13 do
for l:=0 to 6 do
if n = (i*1+j*2+k*5+l*10) then count += 1;
writeln('Всего
end.
ответ: 700