Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.

Пример:
x = 0.5
y = 0.3
NO

0 0

4 года назад

Здравствуйте, помогите мне пожалуйста 8 и 9

катюша ст [1]

Решение во вложении.

8) Ответ: 10

9) Ответ: 17

0 0

4 года назад

Дано информационное сообщение объемом 2 кбайт. Сколько в нем символов, если размеры алфавита, с помощью которого оно было состав

Анито

Если в алфавите 16 символов, то для записи одного символа необходимо log(2)16 = 4 бита (2^4=16)
2 Кбайт = 2*1024 байт = 2*1024*8 бит
Количество символов = 2*1024*8/4 = 4096

0 0

3 года назад

Найти произведение чисел от 1 до 10

Татьяна Карпенко

Это в экселе?? произведение =<span>3 628 800</span>

0 0

4 года назад