хранение информации в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.
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.