Втекстовом файле chisla.txt посчитать количество отрицательных чисел.

Var t : text; a,k : integer; begin k : = 0; assign (t,' chisla.txt'); reset(t);   while not eof(t) do   begin     read (t,a);     if a < 0 then     k : = k +1;   end; close(t); writeln (k); end.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readinteger.tostring;   if s=s.distinct.sorted.joinintostring('') then       writeln('цифры являются возрастающей последовательностью')   else       writeln('цифры не являются возрастающей последовательностью') end. примеры 148 цифры являются возрастающей последовательностью 355 цифры не являются возрастающей последовательностью №2 begin   var x,y: real;   write('введите координаты точки: '); read(x,y);   if x*y=0 then writeln('нули вводить не допускается')   else       if x*y> 0 then           if x> 0 then writeln('i четверть')           else writeln('iii четверть')       else           if x> 0 then writeln('iv четверть')           else writeln('ii четверть') end. пример введите координаты точки: -2 -3.2 iii четверть

1) program n1; var n: integer; begin write('введите 3-х значное число: '); readln(n); if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then writeln('true') else writeln('false'); end. 2) program n2; var x,y: real; begin readln(x,y); if(x=0) and (y=0) then writeln('точка в начале координат') else if(x> 0)and(y> 0) then writeln('i четверть') else if(x< 0)and(y> 0) then writeln('ii четверть') else if(x< 0)and(y< 0) then writeln('iii четверть') else if(x> 0)and(y< 0) then writeln('iv четверть') else if(x=0)and(y< > 0) then writeln('точка на оси oy') else if(x< > 0)and(y=0) then writeln('точка на оси ox'); end.