uses crt; var a, b, c, i, n:integer; s :array [1..10000] of integer; begin clrscr; writeln ('Введите числа x и n'); read (a, b); if a>b then begin n:=a; a:=b; b:=n; end; for i:=a to b do c:=c i; writeln ('Сумма чисел от ', a, ' до ', b, ' равна ', c); end.
P.S. Надеюсь на благодарность и лучший ответ.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
