1.
Var S : String;
i : Byte;
Begin
Readln(S);
For i:=Length(S) downto 1 do Write(S[i]);
Writeln;
end.
2.
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Var S : String;
Begin
Readln(S);
Writeln(StRevers(S));
end.
( ( X < 5 ) → ( X < 3 ) ) ∧<span> ( ( X < 2 ) → ( X < 1 ) ) =
( </span> ( X < 5 ) ∨ ( X < 3) ) ∧ ( ( X < 2 ) ∨ ( X < 1 ) ) =
( ( X > 4) ∨ ( X < 3) ) ∧ ( ( X > 1 ) ∨ ( X < 1 ) ) =
(X ∈ (-∞; 3) U (4; +∞) ) ∧ ( X ≠ 1 )
Ответ: Для всех X ∈ (-∞; 1) U (1; 3) U (4; +∞)
<em>Общ.утв - Все люди любят когда их хвалят Каждый человек на земле может путешевствоватьВсе животные имеют обмен веществ Частн.утв - Некоторые животные уже вымерлиНекоторые люди болеют раком Некоторые бабочки не могут летать из - за нехватки пыльцы на крыльях Обществ.сужНи один из людей не может слетать на солнце Ни один из животных не может говорить по человечьему языку (кроме попугая)Ни один из новорожденных детей не может бегать Частн.сужНекоторые компьютеры не являются рабочими Некоторые животные не являются вымершими</em><span><em>Некоторые люди не являются животноводами</em></span>
var a,x,b:real;
Begin
read(a,x);
if x>4 then b:=x*ln(x*x);
if x<3 then b:=a*cos(x);
writeln(b);
End.