Вопрос по информатике:
Програмированиииииие!!!ПОМОГИТЕ Вводится 5 чисел.подсчитать сколько из них целых,положительных,отрицательных и нулей
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.02.2015 13:48
- Информатика
- remove_red_eye 3238
- thumb_up 14
Ответы и объяснения 1
Program Chisla;
Uses Crt;
var p,o,z,c,i:integer;
n:real;
begin
clrscr;
write('Введите числа: ');
p:=0;z:=0;o:=0;c:=0;
for i:=1 to 5 do
begin
readln(n);
if (n=0) then z:=z+1; // Нуль не ни положительным ни отрицательным ни целым
if ((n mod 2)0) and (n>0) then p:=p+1;
if ((n mod 2)0) and (n<0) then o:=o+1;
if ((n mod 2)=0) and (n>0) then
begin
p:=p+1;
c:=c+1;
end;
if ((n mod 2)=0) and (n<0) then
begin
o:=o+1;
c:=c+1;
end;
writeln;
writeln('Положительных чисел: ',p);
writeln('Отрицательных чисел: ',o);
writeln('Целых чисел: ',c);
writeln('Нулей: ',z);
readkey;
end.
- 23.02.2015 04:35
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.