Даны действительные числа 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
Не нашли ответ?
Похожие вопросы