Что выведет данная программа:
x=int(input())
k=0
s=0
while x!=0 and k<=6:
k+=1
s+=x
x=int(input())
print(k,s,x)
при вводе следующих чисел:
1,1,1,0,1,1,1,0,1,1,1

Функции Excel:

1. КОРЕНЬ (число) - получаем значение квадратного корня (число>0)

=КОРЕНЬ(2,25)   →   1,5

2. НОД (число1; число2) - получаем наибольший общий делитель (наибольшее целое число, на которое делятся число1 и число2 без остатка) двух (можно нескольких) целых чисел  (число1>0,  число2>0)

=НОД(45; 12)   →   3

3. НОК (число1; число2) - получаем наименьшее общее кратное (наименьшее целое число, которое делится на число1 и число2 без остатка) двух (можно нескольких) целых чисел  (число1>0,  число2>0)

=НОК(12; 5)   →   60

4. ОКРУГЛ (число; количество разрядов) - получаем число округлённое до указанного количества разрядов (количество разрядов = 0 - округляется до ближайшего целого; количество разрядов > 0 - округляется до указанного количества дробных разрядов - десятых, сотых и т.д.; количество разрядов < 0 - округляется до указанного количества целых разрядов - десятков, сотен и т.д.)

=ОКРУГЛ(1,573; 0)   →   2

=ОКРУГЛ(1,573; 2)   →   1,57

=ОКРУГЛ(15,73; )   →   20

5. ОСТАТ (число; делитель) - получаем остаток от деления числа на делитель, полученное число имеет тот же знак, что и делитель (делитель ≠ 0)

=ОСТАТ(7; 5)   →   2

=ОСТАТ(5; 7)   →   5

=ОСТАТ(7; 7)   →   0

6. РИМСКОЕ (число) - получаем из арабского числа римское в текстовом формате (число>0)

=РИМСКОЕ(2020)   →   MMXX

Объяснение:

Вместо число можно указывать ссылку на ячейку

1) var a:array[1..10] of real;
i:integer;

begin

randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;

writeln;

for i:=1 to 10 do 
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);

end.

2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: '); 
for i:=1 to n do
read(a[i]);

s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];

writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.