var
a, b: longint;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if b > a then
writeln(a, ' ', b)
else
writeln(b, ' ', a)
end.
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
1 текст:
(Буква) (Десятичный код) (код)
С 243 11110011
у 213 11010101
а 193 11000001
206 11001110
( - ) 45 00101101
208 11010000
а 193 11000001
206 11001110
______________________________________________
2 текст: (Англ.яз)
(Буква) (Десятичный код) (Двоичный код)
I 73 01001001
B 66 01000010
M 77 01001101
______________________________________________
Примечания: Ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.
( - ) - обозначение дефиса.
Английские буквы не кодируются в КОИ-8, используют (не беспокойтесь, это совершенно правильный подход).