Question

Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.Определить разность между суммой чисел кратных семи и количеством четных чисел. program dz; var S,K,N,a:integer; begin K:=0; N:=0; while a>=0 do begin writeln('текущее число'); readln(a); If a mod 7=0 then K:=K+a; If a mod 2=0 then N:=N+1; S:=K-N; end; writeln('сумма чисел кратных 7=',N); writeln('количество четных чисел',N); writeln('разность суммы и количества',S); end. Помогите найти ошибку ,неправильно выводит сумму чисел кратных семи и разность

Answer 1

В 14 строке вместо "N" должно стоять "K";
ну и приличия ради в 15 строке после слова "чисел" поставьте пробел;
и в 16 строке после слова "количество" ,тоже, пробел поставьте; 

Answer 2

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

Используйте следующий код:

program dz;
var
  S, K, a: integer;
begin
  K := 0;
  S := 0;
  repeat
    writeln('текущее число');
    readln(a);
    if a >= 0 then
    begin
      if a mod 7 = 0 then
        K := K + a;
      if a mod 2 = 0 then
        S := S + 1;
    end;
  until a < 0;
  writeln('сумма чисел кратных 7=', K);
  writeln('количество четных чисел=', S);
  writeln('разность суммы и количества=', K - S);
end.

Этот код должен правильно вычислять сумму чисел, кратных семи, количество четных чисел и разность между ними.