Ответы
Ответ дал:
0
var num1, i, num2, sum:integer;
begin
write('Введите начальную координату отрезка: ') ;
readln(num1);
write('Введите конечную координату отрезка: ') ;
readln(num2);
for i:=num1 to num2 do
sum:=sum+i;
write(sum);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
8 лет назад
i:=6;
while i<6 do
i:=i+3;