Составить с while программу для нахождения суммы пяти первых четных чисел.

Program v;
Var a,b,n:integer;
BEGIN
while (n < 5) do begin
readln (a);
if (a mod 2 = 0) then begin
b:=b+a;
n:=n+1;
end;
end;
writeln (b);
END.

Любой цикл 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 вечора на множник можна не множити - тільки людей на ціну білета.

У файлі я добавив, знизу справа, сумму за всі білети. Тобі залишилося заповнити В і С, і воно само порахує сумму всіх грошей за день.