Const {Здесь задаются границы интервала} First=1; {Нижняя граница} Last=50; {Верхняя граница} Var S,X:Integer; Begin S:=0; X:=First; If X Mod 2<>0 Then Inc(X); Repeat If X<=Last Then Inc(S,X); Inc(X,2); Until X>50; WriteLn('SUM=',S); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
