Как сделать задачу в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа X и Y. Если разность X и Y больше 0, то вычисляет и выводит на экран сумму всех целых чисел от Y до X, иначе вычесляет и выводит на экран разность всех целых чисел от Y до X

Question

Фомаида

21 ноября, 03:18

+5

Ответы (1)

Знаете ответ на вопрос?

Светозара · Answer 1

Светозара 21 ноября, 04:59

0

Begin s=0

if y>0 and x>o then

begin

s=s+ai