1. Завантажити Microsoft Excel.

2. Створити і заповнити електронну таблицю на 10 видів товарів :

Прайс-лист

Курс $ 28

№ з/п Найменування товару Ціна $ Ціна (грн) Одиниця виміру Кількість Вартість

1 … …

Всього

3. №п/п ввести, використовуючи автозаповнення.



4. Написати формулу для обчислення ціни товару в гривнах, використовуючи абсолютну адресацію. Скопіювати її на всі товари.



5. Написати формулу для обчислення вартості товару, використовуючи відносну адресацію. Скопіювати її на всі товари.



6. Нанести сітку таблиці там, де необхідно.



7. Зберегти робочу книгу в своїй папці з ім’ям Прайс1.



8. Поміняти курс долара на 30. Записати у звіт, які відбулися зміни.



9. Зберегти робочу книгу в своїй папці з ім’ям Прайс2.



10. Побудувати кругову діаграму долями по вартості товару в доларах. Діаграму розмістити на Листі2 і назвати цей лист - Діаграма.



11. Побудувати діаграму залежності вартості від кількості. Розмістити її на листі – Діаграма1.



12. Зберегти робочу книгу в файлі з ім’ям Діаграми в своїй особистій папці.



13. Вийти з Microsoft Excel на Рабочий Стол.

Висновок:



​

var

  s : string;

  i : integer;

  f : boolean;

begin

  readln (s);

  writeln ('Тут ', length (s), ' символов');

  f := true;  

for i := 1 to length (s) div 2 do

    if s[i] <> s[length (s) - i + 1] then f := false;

  writeln ('Это слово является перевертышем: ', f); //True/False

end.

 

var

  s : string;

  i, k, count : integer;

  c : char;

begin

  readln (s);

  count := 0;

  for i := 1 to length (s) do

    if s[i] <> ' ' then

    begin

       c := s[i];

       k := i + 1;

       break;

    end;

  for i := k to length (s) do

    if (s[i] = ' ') and (c <> ' ') then

    begin

       if s[i - 1] = c then inc (count);

       c := ' ';

    end

    else if c = ' ' then c := s[i];

  if (c <> ' ' ) and (s[length (s)] <> ' ') and (c = s[length (s)]) then inc (count);

  writeln (count);

end.

Program Bally; var a:array[1..250] of string; N,l,max,x,i,b,p:integer; z,k:string; begin max:=0; readln(N); for i:=1 to N do readln(a[i]); z:=a[1]; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); max:=max+x; for i:=2 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b>max then max:=b; end; for i:=1 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); p:=l; Delete(z,1,l); l:=Pos(' ',z); p:=p+l; Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b=max then begin z:=a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. Наверное так!!