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

Question

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

Milykenon101 · Answer

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