Для какого наименьшего целого неотрицательно числа A (x> a)∨(y >a)∨(x+2y< 100) принимает значение 1
Подробное решение

// известно, что х кг шоколадных конфет стоит а рублей, // а y кг ирисок стоит в рублей. определить, сколько стоит 1 кг // шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок. var x,y,a,b: real; begin   writeln('введите массу шоколадных конфет');   readln (x);   writeln('введите сумму потраченную на покупку шоколадных конфет');   readln (a);   writeln('введите массу ирисок');   readln (y);   writeln('введите сумму потраченную на покупку ирисок');   readln (b);   writeln ('килограмм шоколадных конфет стоит ',(a/x): 0: 2,' рублей'); //(a/x): 0: 2 - округряем до сотых)   writeln ('килограмм ирисок стоит ',(b/y): 0: 2,' рублей');   writeln ('шоколадные конфеты дороже ирисок в ',(a/x)/(b/y): 0: 1,' раз'); // - округляем результат до десятых   end. //дана длина ребра куба а. найти его объем и площадь поверхности var a: real; begin   writeln ('введите длину ребра куба');   readln (a);   while a< 0 do       begin           writeln ('вы ввели не допустимое значение попробуйте еще раз');           writeln ('введите длину ребра куба');           readln (a);       end;   writeln ('площадь куба равна ',a*a*6);   writeln ('объем куба равен ',a*a*a); end.