Var x,y : real;
begin
readln(x,y);
if (x>=0)and(y<=1)and((x*x+y*y<=1)or(y>=x-1))
then writeln('YES')
else writeln('NO')
end.
Пример:
0.5 -0.5
YES
Существенные и несущественные свойства математических объектов раскрываются в процессе определения понятий математики. Множество существенных свойств составляют содержание понятия.
Исходный текст: АЛГОРИТМ Ключ: ВАГОН Зашифрованный текст: ВЛЖЬЭКТП
Исходный текст: ПРАВИЛА Ключ: ВАГОН Зашифрованный текст: СРГРХНН
Исходный текст: ИНФОРМАЦИЯ Ключ: ВАГОН Зашифрованный текст: КНЧЬЭОАШЦЛ
Это было сложно, но вроде я справилась
Опасные:
катострофа, пожар, взрыв, нападение приступников, утечка газа.
праздничные:
открытие магазина, день рождения, 8 марта, переезд, новоселье.
Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.