•  найти сумму всех целых чисел от A до B.

     

Ответы 1

  • uses crt; var a,b,s,i:integer; begin clrscr; readln(a); readln(b); for i:=a to b do begin s:=s+i; end; writeln(s); readln; end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years