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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
