5. Задания для самостоятельного решения Задание 1
Группе студентов за активное участие в спортивных мероприятиях выделена
премия в размере 9500р. Эта сумма должна быть поделена между всеми
студентами группы с учетом их вклада. Для этого каждому студенту
присваивается коэффициент вклада, который задается в интервале от 0 до 1.
Определить размер коэффициента.
Задание 2
Минимальная продуктовая потребительская корзина состоит:
Известно что:
Картофель - в два раза дешевле хлеба
Крупа - на два рубля дешевле хлеба
Масло растительное - в семь раз
дороже хлеба
Масло сливочное - в шесть раз
дороже хлеба
Молоко - на один рубль дороже
хлеба
Мясо - в десять раз дороже хлеба
Рыба - в три раза дороже хлеба
Сахар - на два рубля дороже хлеба
Сыр - на пять рублей дороже мяса
Фрукты - на три рубля дороже рыбы
Макаронные изделия - на четыре
рубля дешевле рыбы
Соль - в два раза дешевле хлеба
Овощи - на рубль дешевле хлеба
Технология использования табличных процессоров. Подбор параметра
9
Необходимо вычислить стоимость 1 кг хлеба так, чтобы стоимость
продуктовой корзины равнялась размеру минимальной зарплаты.
Задание 3
Электронная таблица содержит расчет квартирной платы. В ее состав входят:
название статьи расхода, стоимость единицы, норматив использования –
количество потребляемой статьи расхода.
Стоимость единицы электричества неизвестна и условно принята Xруб.
Стоимость единицы остальных статей расхода больше стоимости
электричества в заданное количество раз.
Вода в 5 раз больше
Отопление в 160 раз больше
Лифт на 10 рублей больше
Антенна на 15 рублей больше
Радио в 200 раз больше
Мусоропровод на 7 рублей больше
Плата за наем жилья в 300 раз больше
Необходимо вычислить стоимость единицы электричества так, чтобы
стоимость квартирной платы была равна 2550руб.
Построить диаграмму норматив использования каждой статьи расхода.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Dufrenb

06.04.2021 12:50

Определить длительность звукового файла который уместится на дискете 3,5 при низком качестве звука: моно,8 битов,8000 измерений в секунду...

Gurusergo

06.04.2021 12:50

Переведите: 128 бит в кбайты 40 кбайт в биты 40 кбайт в байты 1792 кбайт в мбайты...

krusher77

06.04.2021 12:50

Составить циклический алгоритм приготовления блинов информатика 4 класс...

lovchike

17.07.2020 15:13

Некоторый алгоритм из одной цепочки десятичных цифр получает новую цепочку следующим образом. сначала вычисляется сумма всех цифр в цепочке. если сумма является...

Аминка233

17.07.2020 15:13

Написать программу на паскале. вычислить значение y по одной из формул. y= x+a, если x 10 x+b, если 10x23 x+, если x 23...

dema1179

17.07.2020 15:13

Написать на паскале программу. ученик бежит по кругу. на старте стоит тренер и пред каждым новым кругом спрашивает ученика: пробежишь ещё кружочек? . подсчитать...

Misha01923

17.07.2020 15:13

Решить на удаление элемента/элементов из массива. дан целочисленный линейный массив. удалить из него все элементы с номерами с n-го по m-й....

mintgirl

17.07.2020 15:13

Ii. дано условие и ее решение, содержащее пропуски. заполнить пропуски. дан линейный массив. изменить массив, вычеркнув из него все четные трехзначные элементы,...

ЛёняЛАпочка

14.05.2021 21:43

Напишите программу вычисления 5+5*5 . я вообще тему не поняла...

Alisa1Karimova

06.07.2022 14:34

Дать общее название каждой групе предметов.монитор колонка наушники микрофон принтер клавиатура...

Ответ:

alexeremka

03.04.2022 16:47

Все решения даны в системе программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var im:=a.IndexMax;
Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Sort(a,(x,y)->x>y);
a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21

0,0(0 оценок)

Ответ:

алишер126

03.04.2022 16:47

var

d, i: integer;

A: array[1..10] of integer;

begin

d := 1;

write('Введите элементы массива: ');

for i := 1 to 10 do read(A[i]);

for i := 1 to 10 do d := d * A[i];

writeln('Произведение элементов: ' + d);

end.

var

d, i: integer;

A: array[1..10] of integer;

begin

d := 1;

randomize();

for i := 1 to 10 do A[i] := random(1,10);

for i := 1 to 10 do begin

if A[i] mod 2 = 0 then d := d * A[i];

end;

writeln('Произведение элементов: ' + d);

end.

var

d, i: integer;

A: array[1..10] of integer;

begin

d := 1;

randomize();

for i := 1 to 10 do A[i] := random(1,10);

for i := 1 to 10 do begin

if i mod 2 = 1 then d := d + A[i];

end;

writeln('Сумма элементов: ' + d);

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку