Испорченный пароль: ИМЯУЫЭС Порядковый номер каждой буквы алфавита русского языка, состоящего из 32 букв (Е иЁ отождествлены), представлен в двоичной системе счисления пятизначным числом, начиная с нуля. (Например: букве А соответствует двоичное число 00000, а букве Ч– 10111)
Передача каждой буквы пароля осуществляется путем передачи сигналов по пяти отдельным каналам. Каждый канал соответствует цифре в пятизначном числе, обозначающем букву. Сигнал, идущий по каналу, считывается как 1, отсутствие сигнала как 0.
Два из 5 каналов замкнуты. Как только по одному из этих каналов идёт сигнал, на выходе он считается в обоих каналах. Определить замкнутые каналы невозможно.
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.
2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.