Вопрос по информатике:
!!!даю 35 баллов!!!
Последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. Если есть хотя бы одно отрицательное-на экран вывести слово "отрицательное".
Пожаловаться
- 20.06.2018 18:35
- Информатика
- remove_red_eye 19771
- thumb_up 31
Ответы и объяснения 1
Var
s, n, a : integer;
begin
a := 1;
s := 0;
n := 0;
repeat
readln(a);
if a 0 then begin
if a mod 2 = 0 then s += a
else n += 1;
if a < 0 then
writeln('Отрицательное');
end
until a = 0;
writeln('Сумма четных = ', s);
writeln('Количество нечетных = ', n)
end.
s, n, a : integer;
begin
a := 1;
s := 0;
n := 0;
repeat
readln(a);
if a 0 then begin
if a mod 2 = 0 then s += a
else n += 1;
if a < 0 then
writeln('Отрицательное');
end
until a = 0;
writeln('Сумма четных = ', s);
writeln('Количество нечетных = ', n)
end.
Пожаловаться
- 21.06.2018 10:27
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы