Составить программу вычисления суммы четных чисел от 1 до n. найдите среднее арифметическое этих чисел
Program help;var a,n,x,summa:integer;beginx:=0;a:=1;summa:=0;readln (n);while a<=n do beginif a mod 2 =0 thensumma:=summa+a;if a mod 2 =0 thenx:=x+1;a:=a+1;end;summa:=summa div x; writeln (summa);end.это на pascalAbc
program help; var a,n,x,summa:integer; begin x:=0; a:=1; summa:=0; readln (n); while a<=n do begin<br>if a mod 2 =0 then summa:=summa+a; if a mod 2 =0 then x:=x+1; a:=a+1; end; summa:=summa div x; writeln (summa); end.