Предмет: Информатика, автор: kent5692

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

Ответы

Автор ответа: Сабишка99
0
begin              s=0          
if y>0 and x>o then 
begin
s=s+ai
Похожие вопросы
Предмет: Алгебра, автор: turganbekmarlen
Предмет: Математика, автор: pan960