ЭТО MS Excel

2.2 задание(2 балла).
Создайте таблицу “Озера Европы”, используя следующие данные по площади (кв. км) и
наибольшей глубине (м): Ладожское 17 700 и 225; Онежское 9510 и 110; Каспийское море
371 000 и 995; Венерн 5550 и 100; Чудское с Псковским 3560 и 14; Балатон 591 и 11; Женевское
581 и 310; Веттерн 1900 и 119; Боденское 538 и 252; Меларен 1140 и 64. Определите самое
большое и самое маленькое по площади озеро, самое глубокое и самое мелкое озеро.
2.3 задание(2 балла).
Создайте таблицу “Реки Европы”, используя следующие данные длины (км) и площади
бассейна (тыс. кв. км): Волга 3688 и 1350; Дунай 2850 и 817; Рейн 1330 и 224; Эльба 1150 и 148;
Висла 1090 и 198; Луара 1020 и 120; Урал 2530 и 220; Дон 1870 и 422; Сена 780 и 79; Темза 340
и 15. Определите самую длинную и самую короткую реку, подсчитайте суммарную площадь
бассейнов рек, среднюю протяженность рек европейской части России.
3 задание(2 балла).
В банке производится учет своевременности выплат кредитов, выданных нескольким
организациям. Известна сумма кредита и сумма, уже выплаченная организацией. Для
должников установлены штрафные санкции: если фирма выплатила кредит более чем на 70
процентов, то штраф составит 10 процентов от суммы задолженности, в противном случае
штраф составит 15 процентов. Посчитать штраф для каждой организации, средний штраф,
общее количество денег, которые банк собирается получить дополнительно. Определить
средний штраф бюджетных организаций.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.