Зал кинотеатра вмещает 35 рядов кресел по 40 мест в ряду.стоимость билетов: с 1 по 10 ряд=25 копеек; с 11 по 20 ряд=40 копеек; с 21 по 35 ряд=50 копеек.составить алгоритм вычесления общей стоимости билетов,если зал заполнен

👇

Ответ:

УизлиТиСпирс

27.12.2021

если хотим получить универсальное решение

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

одна запись таблицы имеет

first_row

last_row

ticket_cost

sits_in_row

2 заполняем таблицу любым удобным нам делаем нужные нам рассчеты

для каждой записи таблицы

S:=S + (last_row - first_row + 1) * sits_in_row * ticket_cost

4 делаем вывод результата любым удобным нам

4,4(87 оценок)

Открыть все ответы

Ответ:

StePAHka228

27.12.2021

ответ: 2 (нажав 10 раз на стрелку вправо курсор окажется после второго пробела перед буквой r, нажав 7 раз на Delete удалим последовательно rrrttt и лишний пробел)

Есть 4 клавиши со стрелками (клавиши управления курсором): стрелка влево (назад), стрелка вправо (вперёд), стрелка вверх и стрелка вниз.

Клавиша Backspace (обычно находится над клавишей Enter, иногда обозначается стрелкой направленной влево) — используется для удаления символа, находящихся перед курсором (слева от курсора).

Клавиша Delete (иногда обозначается Del) — используется для удаления символа, находящихся за курсором (справа от курсора).

4,5(44 оценок)

Ответ:

maltsevaalbina2006

27.12.2021

Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.

1. Глупый школьный вариант

Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.

var
i,s:integer;

begin
s:=0;
for i:=1 to 200 do
    if i mod 5=0 then s:=s+i;
Writeln(s)
end.

Результат:
4100

2. Более умный школьный вариант с циклом while

Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.

var
i,s:integer;

begin
i:=5; { первое подходящее число }
s:=i;
while i<200 do begin
    i:=i+5;
    s:=s+i
    end;
Writeln(s)
end.

3. Еще более умный школьный вариант с циклом for

От предыдущего отличается получения нужных чисел.
Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.

var
i,s:integer;

begin
s:=0;
for i:=1 to 40 do s:=s+5*i;
Writeln(s)
end.

4. Современный вариант на современном Паскале

Генерируем последовательность нужных чисел и находим сумму её элементов.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Range(5,200,5).Sum.Println
end.

4,7(80 оценок)

Это интересно:

Кулинария-и-гостеприимство

31.12.2020

Как приготовить пасту Чикен Альфредо, чтобы она получилась вкусной?...

Компьютеры-и-электроника

10.11.2021

Как изменить список программ для автозапуска...

Стиль-и-уход-за-собой

17.12.2021

Горячее масло: идеальный способ привести ваши волосы в порядок?...

Взаимоотношения