var
x, y: integer;
n: integer;
sum: integer;
mindif: integer;
f: text;
begin
assign(f,'C:\27-A.txt');
reset(f);
readln(f, n);
sum := 0;
mindif := 20001;
while not eof(f) do begin
readln(f, x, y);
if x > y then
sum := sum + x
else
sum := sum + y;
if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);
end;
if sum mod 3 <> 0 then
writeln(sum)
else
writeln(sum - mindif);
end.
Объяснение:
б) Access
Объяснение:
Microsoft Excel - програма для роботи з електронними таблицями
Microsoft Office Access або просто Microsoft Access - реляційна система управління базами даних корпорації Microsoft, тип якої СУБД
Microsoft Word - текстовий процесор, призначений для створення, перегляду, редагування і форматування текстів статей, ділових паперів, а також інших документів, з локальним застосуванням найпростіших форм таблично-матричних алгоритмів
FoxPro - один з діалектів мови програмування xBase, застосовуваний в однойменному програмному пакеті