Вычислить сумму всех четных натуральных чисел меньше данного n . сумму всех четных натуральных чисел меньше данного n . по информатике

Var a,n,s: integer; begin write('введите число n '); readln(n); s: =0; for a: =1 to n do if (a< n) and (a mod 2 =0) then s: =s+a; write(s); end.

Def zadanie(n)       found = false       for i in 0..n             t = i             s = 0             while t > 0 do                   s += t % 10                   t = t / 10             end             if i+s == n                   p i                   found = true             end       end       puts "не найденно" if not found       return found end # примеры применения zadanie(9) zadanie(15) zadanie(100)

Var i,j,k,n: integer; begin   write('n = ');   readln(n);   i: =1; k: =0;   repeat     j: =i;     repeat       k: =k+1;       writeln(i,' ',j,' ',n-i-j);       j: =j+1;     until j> (n-i) div 2;     i: =i+1;   until i> n div 3;   writeln('всего вариантов: ',k); end. n = 10 1 1 8 1 2 7 1 3 6 1 4 5 2 2 6 2 3 5 2 4 4 3 3 4 всего вариантов: 8