Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
<u>Таблица приоритетов операций</u>
<span><span><span>1) @, not, ^, +,
- (унарные), new</span></span>
<span><span>2) *, /, div,
mod, and, shl,
shr, as, is</span>
</span><span><span>3) +, - (бинарные), or,
xor
</span></span><span><span>4) =, <>, <, >,
<=, >=, in,
=>
1) * + = or - нарушение, четвертая группа впереди третьей
2) </span></span></span><span>not div or - <u><em>верно</em></u>
3) </span><span>and + div - нарушение, вторая группа после третьей
4) </span><span>xor = * - нарушение, вторая группа после четвертой
5) </span><span><span>> * - нарушение - вторая группа после четвертой</span></span>
1 1 2 2 1
5-1=4 4-1=3 3*3=9 9*3=27 27-1=26
Сначала введите в свободную ячейку сегодняшнюю дату в формате дата. Затем используйте функцию =РАЗНДАТ(B1;B2;"y")
Замените номера ячеек на свои, где:
B1 - ячейка даты рождения
B2 - ячейка с сегодняшней датой
Результатом будет возраст в годах (число полных лет)
Программы на Паскале прилагаются.