Операторы, константы, идентефикаторы и функции
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure PrintArr(f:Text; a:array of integer);
begin
foreach var x in a do Write(f,x,' ');
Writeln(f)
end;
begin
var fin:=OpenRead('input.txt');
var n:=ReadlnInteger(fin);
var a:=new integer[n];
for var i:=0 to n-1 do Read(fin,a[i]);
var fout:=OpenWrite('output.txt');
fin.Close;
PrintArr(fout,a);
var b:=a.Where(x->x.IsEven).ToArray;
PrintArr(fout,b);
var c:=a.Where(x->x.IsOdd).ToArray;
PrintArr(fout,c);
fout.Close
end.
Решение на картинке.
Считаем так: оклад умножаем на коэфициент и на процент северной надбавки (процент надбавки переводим в число: X+30% = X*( 1 + 30/100) = X*1.3) Для этого в столбец Е записываем формулы (см. рисунок).
Далее, в ячейке Е11 считаем сумму всех начисленых выплат, для этого записываем фомулу =SUM(E2:E10)
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
<span>В чем состоит особенность поля "счетчик"?
</span><span>5. имеет свойство автоматического наращивания.
</span>В чем состоит особенность поля "мемо"?
<span>3. данные хранятся не в поле, а в другом месте, а в поле хранится только указатель на то, где расположен текст;
</span>
Какое поле можно считать уникальным?
<span>1. поле, значения в котором не могут повторятся;
</span>
<span>Ключами поиска в системах управления базами данных (СУБД) называются:
</span><span>3. поля, по значению которых осуществляется поиск;</span>