Даны числа: 1621; 3185; 9393; 21190.
Используя MS Excel, вычисли сумму данных чисел.
2/Дан фрагмент таблицы «Цена куртки». Введи данные в программу MS Excel, определи среднюю цену курток в магазине.
A B
1 Наименование Цена, руб.
2 Куртка «Сибирь» 11824
3 Куртка «Ростов» 8524
4 Куртка «Красота» 12548
5 Куртка «КР» 2397
3/Используя программу MS Excel, вычисли среднее арифметическое 4; 13; 154; 217 (при необходимости ответ округли до сотых).
4/Используя MS Excel, вычисли факториал числа 11.
5/Используя MS Excel, найди факториал числа 19.
6/ Алина отправилась в магазин за покупками. Девушка купила пачку молока за 40 руб., две упаковки замороженных овощей, заплатив за каждую 129,67 руб.
Три пачки 2 % творога, заплатив за каждую пачку 57,5 руб. Пять килограммов мяса. Один килограмм мяса стоил в магазине 185,4 руб. Сколько денег Алина потратила в магазине?
7/Даны числа: 1937; 3162; 9277; 22836.
Используя MS Excel, вычисли сумму данных чисел.
8/Даны числа: 6; 27; 183; 4014; 10858.
Используя MS Excel, вычисли среднее арифметическое данных чисел.
Var
s,sr:string;
i,j,n:integer;
pr:array of char=('.',',',';',':','!','?');
begin
readln(s);
s:=s.Trim;
var ars:=s.ToWords();
s:='';
for i:=0 to ars.Length-1 do
s+=ars[i]+' ';
s:=s.Trim;
i:=0;
while i<>s.Length do
begin
inc(i);
if (s[i] in pr) and (s[i-1]=' ') then delete(s,i-1,1);
end;
i:=0;
while i<>s.Length-1 do
begin
inc(i);
if (s[i] in pr) and (s[i+1]<>' ') then insert(' ',s,i+1);
end;
s:=s.Trim;
writeln(s);
end.
Пример ввода:
Очень, очень ,очень , очень ,очень,очень много слов.
Пример вывода:
Очень, очень, очень, очень, очень, очень много слов.
var
s,s1:string;
mn:set of char;
i,l:integer;
begin
writeln('Введите строку:');
readln(s);
mn:=['.',',',';',':','!','?'];
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
s1:=s[1];
for i:=2 to length(s)-1 do
if not((s[i]=' ')and(s[i+1] in mn)) then s1:=s1+s[i];
s1:=s1+s[length(s)];
s:=s1[1];
for i:=2 to length(s1)-1 do
if (s1[i] in mn)and(s1[i+1]<>' ') then s:=s+s1[i]+' ' else s:=s+s1[i];
s:=s+s1[length(s1)];
writeln(s);
end.
Пример:
Введите строку:
Дана строка ,состоящая из слов , разделенных пробелами .
Дана строка, состоящая из слов, разделенных пробелами.