Вопрос по информатике:
Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.Определить разность между суммой чисел кратных семи и количеством четных чисел.
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.
Помогите найти ошибку ,неправильно выводит сумму чисел кратных семи и разность
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.08.2015 01:47
- Информатика
- remove_red_eye 10096
- thumb_up 25
Ответы и объяснения 1
В 14 строке вместо "N" должно стоять "K";
ну и приличия ради в 15 строке после слова "чисел" поставьте пробел;
и в 16 строке после слова "количество" ,тоже, пробел поставьте;
- 05.08.2015 03:20
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.