Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>1-x)and(x<1)and((y>2*x*x)or(y<2*x*x)and(x>0))
then writeln('YES') else writeln('NO')
end.
Пример:
x = 0.75
y = 1
YES
Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
Такое может быть ,если попробовать перевести эти данные в какую либо систему счисления. Допустим, что все эти числа представлены в двоичной СС.Переведем их в десяятичную :
100-число 4
1000-число 8
1111-число 15
1001-число 9
Тогда получается, что у меня 4 брата, младшему 8лет, а старшему 15. Старший учится в 9 классе. Такое имеет место быть
program xxx;
var i, n, s : integer;
begin
write('введите число N=');
readln(n);
s:=0;
i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
write('сумма четных чисел =', s);
readln
end.
Первое задание:
3 наименьшее
1 наибольшее