<span>n = int(input("n = "))
element = []
suma = <span>0
</span>while n>0<span>:
</span> a = n%<span>10
</span> n = n//<span>10
</span> suma += a
element.append(a)
print('\nSuma = ',suma)
print("Max element = ",max(element))</span>
Во вложении - файл рабочей книги MS Excel 2003.
Макросы - в проекте для первого листа.
Ниже их текст.
Sub ex1()
b = Cells(1, 2)
s = 0
For i = 11 To b - 1
s = s + i
Next i
Cells(2, 2) = s
End Sub
Sub ex2()
i = 5
For j = 16 To 99 Step 8
Cells(i, 1) = j
i = i + 1
Next j
End Sub
PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден