1.В ячейке В5 записана формула =B4+E6. Её скопировали в ячейку В6. Какой вид будет иметь формула в ячейкеВ6? 2.В ячейке Е5 записана формула: =B2-E11. Её скопировали в ячейку Е8. Какой вид будет иметь формула в ячейкеЕ8?
3.В ячейке F4 записана формула: =C3-D7. Её скопировали в ячейку Е7. Какой вид будет иметь формула в ячейкеЕ7?
4.В ячейке Н10 записана формула: =B13+E4. Её скопировали в ячейку Н9. Какой вид будет иметь формула в ячейкеН9?
5.В ячейке D6 записана формула: =E10*5. Её скопировали в ячейку F7. Какой вид будет иметь формула в ячейкеF7?
6.В ячейке J5 записана формула: =C2 + 2. Её скопировали в ячейку H4. Какой вид будет иметь формула в ячейкеH4?
7.В ячейке G10 записана формула: =G9*9. Её скопировали в ячейку F9. Какой вид будет иметь формула в ячейкеF9?
8.В ячейке M10 записана формула: =Е15 – 25 . Её скопировали в ячейку К11. Какой вид будет иметь формула в ячейкеК11?
9.В ячейке F5 записана формула: =F4 – G8. Ее скопировали в ячейку D2. Какой вид будет иметь формула в ячейкеD2?
10.В ячейке E3 электронной таблицы записана формула=B$2+$B3. Какой вид приобретет формула, после того как ячейку E3 скопируют в ячейку F5?
11.В ячейке G8 электронной таблицы записана формула=E$12+$E13. Какой вид приобретет формула, после того как ячейку G8 скопируют в ячейку H9?
12.В ячейке F7 электронной таблицы записана формула=D$12+$D13. Какой вид приобретет формула, после того как ячейку F7 скопируют в ячейкуG8?
13.В ячейке C2 записана формула =$A$4+E3. Какой вид приобретет формула, после того как ячейку C2 скопируют в ячейкуB1?
14.В ячейке В2 записана формула =$E$2+F2. Какой вид будет иметь формула, если ячейку В2 скопировать в ячейку А1?
15.В ячейке электронной таблицы С3записана формула =D2+$T$3-F$2. Какой вид приобретет формула, если ячейку C3 скопировать в ячейку С4?
16.В ячейке C2 записана формула =$F$3+D2. Какой вид приобретет формула, после того как ячейку C2 скопируют в ячейку B1?
17. В ячейке E3 электронной таблицы записана формула=D$2+$D3. Какой вид приобретет формула, после того как ячейку D3 скопируют в ячейкуF4?
Var
f:text;
ars:array of string;
s,s1:string;
min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
readln(f,s);
s1:=s;
s:=s.Trim;
i:=1;
while i<>length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
if ((s.split).length<=min) and ((s.split).length<>0) then
begin
if (s.split).length=min then
begin
inc(n);
setlength(ars,n);
ars[n-1]:=s1;
end
else
begin
n:=1;
setlength(ars,n);
ars[n-1]:=s1;
end;
min:=(s.split).length;
end;
end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.
Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер шейкер
Содержимое файла text1.txt:
уличный
денсер