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

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.

Помогите найти ошибку, неправильно выводит сумму чисел кратных семи и разность

Question

Информатика

Анисий

10 сентября, 00:30

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

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.

Помогите найти ошибку, неправильно выводит сумму чисел кратных семи и разность

+2

Ответы (1)

Знаете ответ на вопрос?

Егуня · Answer 1

В 14 строке вместо "N" должно стоять "K";

ну и приличия ради в 15 строке после слова "чисел" поставьте пробел;

и в 16 строке после слова "количество", тоже, пробел поставьте;