Любой цикл for можно переделать в while не особо думая:
for счетчик := начальное to конечное do
begin
что-то
end;
это тоже самое, что и
счетчик := начальное;
while счетчик <= конечное do
begin
что-то
счетчик := счетчик + 1;
end;
И там и там переменная счетчик сначала равна начальному значению, затем с ней что-то делают, и счетчик увеличивается. Если счетчик стал слишком большим, цикл прекращается.
Переделанная программа может выглядеть так:
program more;
var
s, i: integer;
begin
s := 0;
i := 20;
while i <= 40 do
begin
if (i mod 2) = 0 then
s := s + i;
i := i + 1;
end;
writeln(s)
end.
Объяснение:
Подивись на скріни. Спочатку тобі потрібно нажати на Вставити функцию(У мене російською, але, я гадаю, ти зрозумієш). Потім, якщо в тебе українською, пишеш ЧАС(Якщо в тебе Excel також російською, то пиши ВРЕМЯ). Натискаєш, та пишеш час. Потім, у колонці С, тисни = і обирай кількість людей(Колонка В) помножити на стандартну ціну за білет помножити на множник для відрахування 10%. У час з 10 ранку до 10 вечора на множник можна не множити - тільки людей на ціну білета.
У файлі я добавив, знизу справа, сумму за всі білети. Тобі залишилося заповнити В і С, і воно само порахує сумму всіх грошей за день.
Объяснение:
алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон
PS. Скорее всего так, но это не точно