с Инфой составить в Excel смету грантового проекта, состоящую из 10 пунктов...

Program n1; function isprost(x: integer): boolean; var i: integer; begin if x< 2 then isprost: =false else begin isprost: =true; for i : = 2 to round(sqrt(x)) do if x mod i = 0 then isprost: =false; end; end; var a,b,i,sum: integer; p: real; begin writeln('введите границы отрезка [a; b] (предполагается, что числа натуральные)'); write('a='); readln(a); write('b='); readln(b); p: =1; sum: =0; if(a< =0) or (b< =0) then write('ошибка, числа не натуральные') else begin writeln('простые числа на отрезке [',a,'; ',b,']'); for i: =a to b do if isprost(i) then begin p: =p*i; sum: =sum+i; write(i,' '); end; writeln; writeln('их сумма: ',sum); writeln('их произведение: ',p); end; end.

1) не важно, какой оно длины. если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. тупо проверяем число на чётность: если число остаток 2 = 0 то вывод.цепь("верно.") иначе вывод.цепь("не верно.") кон 2) пер массив: ряд n из цел, сч: цел; указ от сч : = 0 до n - 1 вып   если массив[сч] < 0 то массив[сч] : = -массив[сч] кон кон 3) пер массив: ряд n из цел, сч, мин_зн, мин_ном: цел; указ мин_зн : = массив[0]; мин_ном : = 0; от сч : = 1 до n - 1 вып   если массив[сч] > мин_зн то мин_зн : = массив[сч]; мин_ном : = сч кон кон