Составить программу вычисления суммы четных чисел от 1 до n. найдите среднее...

Question

Составить программу вычисления суммы четных чисел от 1 до n. найдите среднее арифметическое этих чисел

Answer 1

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

Comments

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.