Вопрос по информатике:
Дана последовательность чисел оканч. на 0; Определить сумму четных и кол-во нечетных и если есть хотя бы одно отрицательное число вывести 'Да'.
Пожаловаться
- 02.03.2018 13:35
- Информатика
- remove_red_eye 11010
- thumb_up 28
Ответы и объяснения 1
Program n1;
var a,sumc,kn: integer;
ot: byte;
begin
readln(a);
kn:=0;
sumc:=0;
ot:=0;
while a0 do
begin
if a<0 then ot:=1;
if a mod 2=0 then sumc:=sumc+a else
kn:=kn+1;
readln(a);
end;
writeln('сумма четных: ',sumc);
writeln('кол-во нечетных: ',kn);
if ot=1 then write('да');
end.
var a,sumc,kn: integer;
ot: byte;
begin
readln(a);
kn:=0;
sumc:=0;
ot:=0;
while a0 do
begin
if a<0 then ot:=1;
if a mod 2=0 then sumc:=sumc+a else
kn:=kn+1;
readln(a);
end;
writeln('сумма четных: ',sumc);
writeln('кол-во нечетных: ',kn);
if ot=1 then write('да');
end.
Пожаловаться
- 03.03.2018 11:19
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы