Предмет: Информатика,
автор: kent5692
как сделать задачу в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа X и Y. Если разность X и Y больше 0, то вычисляет и выводит на экран сумму всех целых чисел от Y до X, иначе вычесляет и выводит на экран разность всех целых чисел от Y до X
Ответы
Автор ответа:
0
begin s=0
if y>0 and x>o then
begin
s=s+ai
if y>0 and x>o then
begin
s=s+ai
Похожие вопросы
Предмет: Английский язык,
автор: asirovaaana
Предмет: Литература,
автор: stervo444ka
Предмет: ОБЖ,
автор: ondreymardva
Предмет: Алгебра,
автор: turganbekmarlen
Предмет: Математика,
автор: pan960