Написать программу пусть дано 100 вещественных чисел, которые вводятся по одному.найдите количество положительных, отрицательных и нулевых элементов.

1234567891011 cls for c = 1 to 100 print "vvedi chislo"; c; input ": ", n r = sgn(n) + 1 p(r) = p(r) + 1 nextprint string$(80, 196)print "pologitelnyh : "; p(2)print "otricatelnyh : "; p(0)print "nulevih : "; p(1)

Program asd; var  f,g: text;     t,fs,gs: string;     i,k,n: integer;   isfilesequal: boolean; begin  isfilesequal: =true;   assign(f,'fi1.txt');     assign(g,'fi2.txt');     reset(f);     reset(g);   n: =0;   while not eof(f) do    begin      if not isfilesequal then          break;       readln(f,fs);         readln(g,gs);       if fs< > gs then        begin          isfilesequal: =false;             inc(n);             if length(fs)< length(gs) then            t: =fs            else              t: =gs;             for i: =1 to length(t) do            if fs[i]< > gs[i] then                begin                  k: =i;                   break;                 end;         end;     end;   close(f);     close(g);     if isfilesequal then    writeln('.')  else      writeln('строка = ',n,' позиция = ',k);     readln; end.

Рассмотрим выражение  4^750-4^10: 4^750-4^10 =  4^750 - 4^11 + 4^11  -  4^10 = 4^750 - 4^11 + 3 * 4^10 = 4^750 - 4^12 + 4^12 - 4^11 + 3*4^10 =  4^750 - 4^12 + 3*4^11 + 3*4^10 = = 4^750 - 4^750 + 3*4^749 + 3*4^748++3*4^10 =  3*4^749 + 3*4^748++3*4^10.таким образом, исходное число представили в виде суммы степеней, умноженных на коэффициенты при них, что позволяет перевести число в 4-ичную систему счисления.4^1550+4^750-4^10 =  4^1550 + 0*4^1549 + + 0 * 4^750 +  3*4^749 + 3*4^748++3*4^10 + 0*4^9 + + 0*4^0.осталось посчитать количество коэффициентов, равных 0.(1549 - 750 + 1) + (9 - 0 + 1) = 810.