//Программа на языке паскаль:
program zagadka;
var s: String;
begin
writeln('Сидит девица в темнице, а коса на улице.');
readln(s);
while(s <> 'Морковь')
do begin
writeln('Не угадал. Попробуй еще раз');
readln(s);
end;
writeln('Правильно. Угадал!');
end.
/*
Описание:
Выводим пользователю загадку и просим его ввести ответ. Пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. Программа заканчивает свою работу.
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите координату x точки");
double x = int.Parse(Console.ReadLine());
Console.WriteLine("Введите координату y точки");
double y = int.Parse(Console.ReadLine());
Console.WriteLine("Введите радиус");
double r = int.Parse(Console.ReadLine());
double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));
Console.WriteLine(d);
if (d < r){
Console.WriteLine("Да");}
else if (d == r){
Console.WriteLine("На границе");}
else{
Console.WriteLine("Нет");}
Console.ReadKey();
}
}
