В данной программе k - это количество шагов, т. е. от 6 до 12 включительно. Получается 7 шагов. Если совсем не понимаешь, то проще расписать каждый шаг от 6 до 12.
Например,
k:= 6; s:= 0+10
k:= 7; s:= 10+10
k:= 8; s:= 20+10
...
k:= 12; s:= 60+10
В Python есть только for и while.
Тоесть 2
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
Program z1;
var a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
read(a[i]);
if (a[i] mod 50 <>0) or (a[i]>10) then a[i]:=11;
end;
for i:=1 to 14 do writeln(a[i]);
end.
Информационный объем(I) можно определить как произведение скорости(v) на время(t)
Дано: v=256000 бит/с
t=2 мин =120 c
Найти: I
Решение
I = v*t =256000 бит/с * 120 с =30720000 бит =(делим на 8) =3840000 байт=(делим на 1024)=3750 Кбайт Ответ: 3750 Кбайт