// PascalABC.NET 3.3.1611
begin
var sum := 0;
var n := 0;
ReadSeqIntegerWhile(x -> x <> 0).ForEach(x -> begin
n += 1;
if (0 < x) and (x <= 256) and (x mod 2 = 0) then
sum += x;
end);
println('Количество:', n);
println('Сумма:', sum);
end.
Def some_func(num):
arr = []
for n in range(num):
arr.append((n+1)*(n+1))
return arr
Ответ:1, 4,6
Объяснение: каретка- это ножка на жеском диске, считывающяя, записывающяя и удаляющяя данные с диска. Вверх и вниз привод не позволяет ей двигаться, а вправо и влево может (на кол-во точек на диске)
С помощью магнитного покрытия каретка узнает наличие точки или метки. А также может записать и удалить/стереть информацию.
Системное ПО:
1,4,6,7,9
Офисное ПО:
2,3,5,8,10,11