Вопрос по информатике:
Определить количество положительных и отрицательных чисел в заданных числах а, Ь, с, d. С подробным решением
Пожаловаться
- 26.11.2017 22:38
- Информатика
- remove_red_eye 2018
- thumb_up 26
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d,kn,kp:real;
Read(a,b,c,d);
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пример
8 -2 0 -4
Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var
a,b,c,d,kn,kp:real;
begin
Read(a,b,c,d);
kp:=0; kn:=0;
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d,kn,kp:real;
Read(a,b,c,d);
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пример
8 -2 0 -4
Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var
a,b,c,d,kn,kp:real;
begin
Read(a,b,c,d);
kp:=0; kn:=0;
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пожаловаться
- 27.11.2017 04:37
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы