<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('Вводите последовательность',ReadInteger('N=')).Reverse.Println
end.
<u>Пример</u>
N= 10
Вводите последовательность 5 9 3.15 -6.7 0 12 100 35 0.03 1e-20
1E-20 0.03 35 100 12 0 -6.7 3.15 9 5
10бит 20бит 2байта 1010байтов 1Кбайт
Var
a,b,c,d: integer;
begina:=-6;
b:=2;if a>b then
c:=a-b
else
c:=a*b;
d:=1;while c<a do begin
d:=d+1;
c:=c+1;
end;
writeln('Значение d = ',d,'.');
writeln('Значение c = ',c,'.');
end.
Паскаль. d = 7. c = -6.
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("="); } }}
