Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A меньше B меньше C, если да, то, присвоить A=B+C, иначе A=C-B. Напишите как это должно выглядеть в Pascal'е .

Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A
Гость
Ответ(ы) на вопрос:
Гость
Program gt; var A,B,C:real; begin readln(A,B,C); if(A
Не нашли ответ?
Ответить на вопрос
Похожие вопросы