Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
? - один произвольный символ(обязательно)
*- любая или пустая последовательность символов
?ese*ie.?t* к этой маске подходит A)seseie.ttx, так как во всех остальных случаях не хватает символа к первому вопросу в файле.
1. Переводим в двоичную систему
11000101 11101101 00000000 00000000
2. Первая 1 в старшем байте (
<u>1</u>1000101
) значит число отрицательное.
3. Оставшиеся 7 цифр это порядок числа ( 1000101
- 1000000 = 101) это 5 в десятичной системе.
4.Значит наше число это 11101, 101 в двоичной
5. Переводим в десятичную получаем -29,625
<span>1,2,3,4 ,5)
1. Начало
2. ПОВТОРЯЙ___2___РАЗА.
3. ПОВТОРЯЙ ДЛЯ ФИГУР (_1,2_,3_( кружок и ромбик и треугольник )_________ )
4. Нарисуй клетку
5. Нарисуй в клетке ФИГУРУ
6. ПОВТОРЯЙ___3____________ РАЗА
7. Впиши самую верхнюю пустую фигуру______4_______________
8. Впиши в следующую пустую фигуру ______5________________
9. Конец</span>
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