Вопрос по информатике:
Помогите пожалуйста срочно!!!
1. Даны N чисел. найдите произведение четных и сумму нечетных. решить с помощью паскаля.
2. Даны N чисел. Если кол-во положительных и кол-во отрицательных. Сравнить результаты.
Пожаловаться
- 22.12.2017 13:22
- Информатика
- remove_red_eye 3248
- thumb_up 24
Ответы и объяснения 1
Var a, n, ch, nch, i:Integer;
begin
write("N: ");
readln(n);
ch:=1;
nch:=0;
for i:=1 to n do
begin
read(x);
if x mod 2=0
ch:=ch*x;
else
nch:=nch+x;
end;
if ch=1
ch:=0;
writeln("Произведение чётных: ", ch, "; сумма нечётных: ", nch, ".");
end.
var i, n, o, p, x:Integer;
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
begin
read(x);
if x>0
inc(p);
if x<0
inc(o);
end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.
begin
write("N: ");
readln(n);
ch:=1;
nch:=0;
for i:=1 to n do
begin
read(x);
if x mod 2=0
ch:=ch*x;
else
nch:=nch+x;
end;
if ch=1
ch:=0;
writeln("Произведение чётных: ", ch, "; сумма нечётных: ", nch, ".");
end.
var i, n, o, p, x:Integer;
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
begin
read(x);
if x>0
inc(p);
if x<0
inc(o);
end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.
Пожаловаться
- 23.12.2017 22:20
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы