Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Програмированиииииие!!!ПОМОГИТЕ Вводится 5 чисел.подсчитать сколько из них целых,положительных,отрицательных и нулей

Ответ оставил Гость

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.