Var a,b,i,s:integer; begin readln(a,b); s:=0; for i:=a to b do {Начнем цикл с числа а и будем выполнять до числа b} s:=s+i; {Добавляем в нашу сумму число, которое в данный момент обрабатываем в цикле} writeln(s); {Выводим сумму} end; Даже если ты не знаешь Pascal, думаю алгоритм понятен
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку