ОЧЕНЬ Задание делать на excel. больше Буду очень благодарна...
Задание 1. Футбольная секция закупила 30 пар кроссовок по 1600 руб.; 20 мячей по 700 руб., 4 сетки для ворот по 2900 руб. Определите суммарную стоимость покупки.
Задание 2. Перед началом учебного года веселые человечки покупали в магазине тетради. Незнайка купил 10 тетрадей, Торопыжка 15, Знайка 25, Дюймовочка 12, Пончик -17. Цена одной тетради S руб. Сколько денег заплатил каждый из них за тетради? Сколько тетрадей всего купили веселые человечки и сколько всего денег заплатили за все тетради? Решить задачу для S=20.
Задание 3. В городской игре КВН участвуют 5 команд выступления которых оценивают 6 судей. Найти максимальную, минимальную и итоговую оценку (средний ) для каждой команды, а также отдельно вывести оценку победителя игры (определяется как максимальная из средних оценок каждой команды).

Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

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

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.