Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры
Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,s,i:integer; begin readln(a,b); if a>b then for i:=b to a do s:=s+i else for i:=a to b do s:=s+i; writeln(s); end.
Не нашли ответ?
Похожие вопросы