Внимание, на вход данной программы принимаются радианы, а не градусы. var x:real; begin readln(x); if(x>0) then writeln(sin(x)) else writeln(cos(x)); end.
Может быть, так: uses graphABC; Begin setfontcolor(clRed); writeln('Белеет парус одинокой'); setfontcolor(clBlue); writeln('В тумане моря голубом!..'); setfontcolor(clDarkOrchid); writeln('Что ищет он в стране далекой?'); setfontcolor(clDeepSkyBlue); writeln('Что кинул он в краю родном?..'); setfontcolor(clDeepPink); writeln('Играют волны - ветер свищет,'); setfontcolor(clMagenta); writeln('И мачта гнётся и скрыпит...'); setfontcolor(clDarkGreen); writeln('Увы! он счастия не ищет'); setfontcolor(clLime); writeln('И не от счастия бежит!'); setfontcolor(clBrown); writeln('Под ним струя светлей лазури,'); setfontcolor(clIndigo); writeln('Над ним луч солнца золотой...') End.
Для решения этой задачи отбросим лишнее и оставим только данные нам факты: 1.Юре не хватает времени на туризм -> Юра не турист. 2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист. 3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.
Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.
Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом. Решение верное,так как ни один из фактов не нарушен.
var x:real;
begin
readln(x);
if(x>0) then writeln(sin(x))
else writeln(cos(x));
end.