1)Указать в каких ячейках располагаются формулы с использованием статистических функций: АС10—ВС24;
Е12;Е25;
В23-Р34;
A22:B45
2)Указать в каких ячейках записаны формулы без использования функции.
1 =ЕСЛИ(В1>ВЗ;А1+А2;С1)
2 =CУMM(B3:D7)
3 =B2/D3*D7
4 =А1/(СУММ(С2:С4))
3)Указать в каких ячейках записаны формулы с функциями, аргументами которых есть вложенные функции.
= ЕСЛИ(B1>B3;A1;C1)
=A1/СУММ( (C2:C4))
=МАКС(СУММ(H1:H4))
=МИН(ABS(K1:K6))
4)Указать, в каких ячейках содержатся формулы с использованием статистических функций.
=срзнач (В1:D3)
=сумм (В3:D7)
=МАКС (А1:В5)
=sin (x)
5)Указать, в каких ячейках содержатся формулы с использованием логических функций.
=ЕСЛИ(В1>2;А2;А5)
=CУMM(B3:D7)
=B2/D3*D7
=ИЛИ(А2=2;С1<1)
6)Указать, в каких ячейках содержатся формулы с использованием математических функций: *
1 =сегодня ()
2 =сумм (В3:Е7)
3 =В2/D3*D7
4 =sin (x)
Нужна выбрать несколько с 1 до 4 с 4 до 6
function preobr(s:string):string;var i,j,p,n,sered:integer; gl,zp,slovo:string; m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи'; p:=pos(' ',s); i:=0; repeat inc(i); slovo:=copy(s,1,p-1); m[i]:=slovo; delete(s,1,p); p:=pos(' ',s); until p=0; n:=i+1; m[n]:=s; for i:=1 to n do begin s:=m[i]; if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s); sered:=(p div 2)+1; if (not odd(p)) or (p<3) then continue; if pos(s[1],gl)=0 then continue; if pos(s[sered],gl)=0 then continue; if pos(s[p],gl)=0 then continue; s[1]:=UpCase(s[1]); s[sered]:=UpCase(s[sered]); s[p]:=UpCase(s[p]); m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')'; end; s:=''; for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do begin readln(f,s); writeln(t, preobr(s) ); end; writeln('Файл успешно записан...'); close(f);close(t);readln;end.