Добрый вечер, два варианта решения вашей задачи предоставлены у прикрепленном файле. Первый вариант решения соответствует вашему первому пункту, второй - второму.
Буду очень благодарен за отметку "Лучший ответ"
Будут вопросы пишите в коментарии
Привет, перейди в Пуск, введи название программы и рисуй на здоровье)
Ответ:
"Везде исследуйте всечасно что есть велико и прекрасно"
Объяснение:
Это решается с помощью шифра Цезаря. В задании обозначено, что буква "Д" соответствует букве "Я" закодированного сообщения.
Буква "Д" в алфавите по счёту пятая, буква "Я" - тридцать третья. (см. картинку 1). Это значит, что <em>сдвиг</em> будет воспроизводиться на шесть
Следовательно, получается фраза, данная мной в ответе (см. картинку 2)
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -3
y = 3
Да</span>