Любой цикл 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 вечора на множник можна не множити - тільки людей на ціну білета.
У файлі я добавив, знизу справа, сумму за всі білети. Тобі залишилося заповнити В і С, і воно само порахує сумму всіх грошей за день.
начался цикл
1.x=7
2.x=4
3.x=1
4.x=-1 (выполнилось условие выхода из цикла)
Четыре итерации