INPUT "A="; A INPUT "B="; B INPUT "C="; C IF A = B AND B = C THEN PRINT "Числа равны" END END IF IF A > B THEN IF B > C THEN PRINT A, B, C ELSE PRINT A, C, B ELSE IF B > C THEN IF A > C THEN PRINT B, A, C ELSE PRINT B, C, A ELSE IF A > B THEN PRINT C, A, B ELSE PRINT C, B, A END IF END IF
Using System; namespace Fractions{ public struct Fraction : IComparable<Fraction> { public Fraction(int numerator, int denominator) { Numerator = numerator; Denominator = denominator; } public int Numerator; public int Denominator; public int CompareTo(Fraction other) { return (Numerator * other.Denominator).CompareTo(other.Numerator * Denominator); } } public class Program { static void Main(string[] args) { int numerator, denominator; Console.Write("Числитель первой дроби "); numerator = int.Parse(Console.ReadLine()); Console.Write("Знаменатель первой дроби "); denominator = int.Parse(Console.ReadLine()); var fraction1 = new Fraction(numerator, denominator); Console.Write("Числитель второй дроби "); numerator = int.Parse(Console.ReadLine()); Console.Write("Знаменатель второй дроби "); denominator = int.Parse(Console.ReadLine()); var fraction2 = new Fraction(numerator, denominator); var compareResult = fraction1.CompareTo(fraction2); if (compareResult < 0) Console.WriteLine("<"); else if (compareResult > 0) Console.WriteLine(">"); else // = 0 Console.WriteLine("="); } }}
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string; c:char; i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do begin c:=s1[i];{запомним символ} k:=0; for j:=length(s1) downto i+1 do{с конца строки ищем такие же} if s1[j]=c then{если есть} begin k:=1;{фиксируем} delete(s1,j,1);{удаляем} end; if k=1 then delete(s1,i,1){если не один, удаляем} else i:=i+1;{иначе проверяем следующий} end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
INPUT "B="; B
INPUT "C="; C
IF A = B AND B = C THEN
PRINT "Числа равны"
END
END IF
IF A > B THEN
IF B > C THEN PRINT A, B, C ELSE PRINT A, C, B
ELSE
IF B > C THEN
IF A > C THEN PRINT B, A, C ELSE PRINT B, C, A
ELSE
IF A > B THEN PRINT C, A, B ELSE PRINT C, B, A
END IF
END IF