Question

Программирование составьте и выведите на экран загадку запросите отгадку и сообщите верно ли она отгадана

Answer 1

                                     PascalABC.NET

begin

 Writeln('Нет ушей, а слышит', newline, 'Нету рук, а пишет.', newline);

 while True do begin

 var it := ReadString('Введите ответ:').ToLower;  

 if it = 'магнитофон' then begin

     writeln('Молодец, ты угадал.');

     break;

     end

   else

     writeln('Ты не угадал, попробуй еще');

 end;

end.