Як виконати це в exel? При перевищенні строку договору про ремонт техніки підприємство, яке проводить ремонт, платить штраф по 200 грн. за кожний день, якщо кількість днів, які превищують строк. менша або дорівнює 10 днів. Якщо кількість днів, що превищує строк, більша 10 але менша рівна 20, то штраф становить 200 грн. за кожний день плюс 250 грн. Якщо ж кількість днів, що перевищує строк, від 20 днів і більше, то штраф становить 200 грн. за кожний день плюс 500 грн. Обчислити величину штрафу, якщо на 8 ,15, 26, 11 днів.
z = 30; // максимально число слов
var
s,w : string;
n,p,i,j,l : integer;
words : array [1..z] of string;
kw : array [1..z] of integer;
r : boolean;
begin
writeln ('введите строку');
readln (s);
writeln ('укажите кол-во повторений');
readln (n);
l := Length(s);
p := 1;
w := '';
for i := 1 to l do
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then
w := w + s[i]
else
begin
for j := 1 to p do
if w = words[j] then
begin
kw[j] := kw[j] +1;
r := true;
end;
if not r then
begin
p := p +1;
words[p] := w;
kw[p] := kw[p] +1;
end;
w := '';
r := false;
end;
for i := 1 to p do
if kw[i] > n then
writeln (words[i]);
end.