Составить программу вычисления суммы четных чисел - вопрос №61080471 от zarina20178 17.04.2023 03:31

Question

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

zarina20178 · Answer

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...