Как сделать задачу в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа X...

0 голосов
91 просмотров

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


Информатика (12 баллов) | 91 просмотров
Дан 1 ответ
0 голосов

Begin              s=0          
if y>0 and x>o then 
begin
s=s+ai

(142 баллов)