Question

Program zadanie3; var n, s, k, g: integer; begin s:=0; readln(n); for k:=1 to n do begin readln(g); if (g mod 6 = 0) then s:=s+g; end; writeln(s); end. Запускаем отладку программы, исправляем ошибки. Вводим данные 3, 12, 25, 6. Программа должна выдать ответ: 18

Answer 1

Так а в чём собственно ошибка? Всё работает как надо.

Answer 2

Из предоставленного кода трудно сразу определить, какие ошибки в нем могут быть. Однако, по вашему описанию, программа должна вычислять сумму чисел, которые делятся на 6 без остатка.

Ваша цель — ввести данные и получить ответ 18. Давайте пройдемся по коду и проверим его:

pascalCopy code
Program zadanie3;
var
  n, s, k, g: integer;

begin
  s := 0;
  readln(n);
  
  for k := 1 to n do
  begin
    readln(g);
    if (g mod 6 = 0) then
      s := s + g;
  end;
  
  writeln(s);
end.

Программа выглядит корректно, и она должна правильно вычислять сумму чисел, делящихся на 6. Давайте введем данные: 3, 12, 25, 6.

1. n устанавливается равным 3.
2. Первая итерация цикла: k = 1, вводим g = 12. Так как 12 делится на 6 без остатка, сумма s увеличивается на 12.
3. Вторая итерация цикла: k = 2, вводим g = 25. Число 25 не делится на 6 без остатка, поэтому оно пропускается.
4. Третья итерация цикла: k = 3, вводим g = 6. Число 6 также делится на 6 без остатка, и сумма s увеличивается на 6.

Итоговая сумма s будет равна 18, как и ожидалось.

Если у вас возникли какие-либо ошибки или вопросы при запуске программы, пожалуйста, уточните их, и я постараюсь помочь вам решить проблему.