static void Main()
{
double a = float.Parse(Console.ReadLine()),
b = float.Parse(Console.ReadLine()),
c = float.Parse(Console.ReadLine()),
d;
if (a > b) swap(ref a, ref b);
if (b > c) swap(ref c, ref b);
if (a > b) swap(ref a, ref b);
if (b > c) swap(ref c, ref b);
d = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2));
if (a + b <= c)
{
Console.WriteLine("Нет ▲");
}
else
{
if (d == c)
Console.WriteLine("Прямоугольный");
else
if (d < c)
Console.WriteLine("Тупоугольный");
else
Console.WriteLine("Остроугольный");
}
Console.ReadKey(false);
}
private static void swap(ref double a, ref double b)
{
double c = a;
a = b;
b = c;
}
Const
key = 3;
var
i: integer;
s: string;
function Encode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) + key);
Encode := s;
end;
function Decode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) - key);
Decode := s;
end;
begin
write('Введите строку данных - ');
readln(s);
writeln('Выберите действие');
writeln('1 - Закодировать');
writeln('2 - Раскодировать');
readln(i);
case i of
1: s := Encode(s, key);
2: s := Decode(s, key);
end;
Writeln(s);
end.
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.