Задание:
Даны натуральные числа А и В (В<А). Написать программу, выводящую на экран сумму натуральных чисел от В до А, включая В и А.
Решение:
Uses crt; const h=10; var a,b,S: integer; begin write ('A='); readln (a); write ('B='); readln (b); S: =0; while b<>a+1 do begin S: =S+b; inc (b); end; writeln ('Сумма — ',S); end.
Знаете другой ответ?