Создать таблицу для "Ювелирной мастерской" с двумя столбцами: в левом столбце перечислить информацию, которую с вашей точки зрения необходимо передавать и хранить в бумажном виде, а в правом – которая может быть передана и сохранена в электронном виде.
// Внимание! Если программа не работает, обновите версию!
function IsGood(Self:integer):boolean; extensionmethod;
begin
(var max,var min,var n):=(0,9,abs(Self));
while n>0 do begin
var d:=n mod 10;
if d>max then max:=d;
if d<min then min:=d;
n:=n div 10
end;
Result:=max-min<5
end;
function P(name:string):double;
begin
Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
begin
Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.
Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429
Var
se:set of char;
s:string;
i,j,k:integer;
begin
k:=0;
se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
var ars:=s.split;
for i:=0 to ars.Length-1 do
for j:=1 to length(ars[i])-1 do
if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
begin
inc(k);
break;
end;
writeln('Res=',k);
end.
Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2