Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.Определить разность между суммой чисел кратных семи и количеством четных чисел.
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.
Помогите найти ошибку ,неправильно выводит сумму чисел кратных семи и разность
В 14 строке вместо "N" должно стоять "K";
ну и приличия ради в 15 строке после слова "чисел" поставьте пробел;
и в 16 строке после слова "количество" ,тоже, пробел поставьте;
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
