143-2=141
141/2=70.5=70
270
270+2=272
2722
2722.5
2722.52
<span>Дисководы гибких магнитных дисков хранят данные примерно так же, как и жесткие диски - путем изменения магнитной полярности металлических частичек на их поверхности. Здесь сходство заканчивается. Первое отличие состоит в том, что дискеты можно вынимать из дисководов, то есть теоретически они предлагают неограниченное хранилище данных любому желающему. Но ограниченная емкость дискет (1, 44 МВ в отличие тысяч мегабайтов жестких дисков) уменьшает их полезность. (это дискета)</span>
Подоходный налог составляет 13% от оклада.
Если оклады сотрудников записаны в столбце C (C2:C7), то для вычисления подоходного налога в ячейках столбца D нужно вставить формулы вида:
=C2*13%
Для вычисления значений в столбце E ("К выдаче", E2:E7) нужно вставить формулы вида:
=C2-D2
Разумеется, каждая из формул записывается один раз, а затем растягивается на нужное число строк.
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
a.TakeWhile(p -> p > 0).DefaultIfEmpty.Average.Println
end.
Объяснение:
TakeWhile(p -> p > 0) - отбирает элементы от начала до тех пор, пока условие p > 0 истинно, т.е. со значением, большим нуля.
DefaultIfEmpty - если первое же значение не положительно, результатом будет один элемент, равный нулю (нельзя найти среднее, если элементов не отобрано вообще, получим 0/0)
Average - находит среднее отобранных элементов
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>