<span>var l,k:char; m,s:string; n,i,a:integer; begin read(s); l:=s[1]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[2]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[3]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[4]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[5]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then<span> begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[6]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; writeln(m); writeln(n); end.</span></span>
Excel может вычислить коэффициент корреляции с помощью функции КОРРЕЛ со следующими характеристиками:
КОРРЕЛ (массив 1; массив 2), где:
массив 1 = диапазон данных для первой переменной,
массив 2 = диапазон данных для второй переменной.
Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
В большинстве случаев, скопированный объект может быть неоднократно вставлен. Или точнее сказать - почти всегда.
Но бывают программы которые после вставки очищают буфер обмена.
Так же есть программы, такие как Punto Switcher (которые переводят не правильно набранный, в другой раскладке текст) которые используют тот же буфер обмена (и если у вас в нем был скопирован какой то текст - он просто подменится этой программой).
Ну и последнее: операция "вырезать" вместо скопировать, не сохраняет содержимое в буфере обмена после его вставки, так, что в отличии от копирования, вставкв будет возможна только один раз
Var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.