Вообще-то для решения задачи нужно знать коды ВСЕХ символов, составляющих это слово. Эти коды такие
h 104 68h
e 101 65h
l 108 6Ch
o 111 6Fh
Таким образом, последовательность десятичных кодов слова будут
hello = 104 101 108 108 111
Но, скажу тебе по секрету, десятичными кодами практически никто не пользуется, более привычно работать с 16кодами, они будут такими
hello = 68 65 6C 6C 6F, ну или в двоичном представлении, естественно
hello = 0110 1000 0110 0101 0110 1100 0110 1100 0110 1111
Вот и всё!
Правда, возникает вопрос, откуда я узнал все эти коды. Я просто заглянул в таблицу кодов!
Однако, судя по условию задачи, остальные коды нужно ВЫЧИСЛИТЬ, зная только код буквы е. Это тоже легко сделать, зная структуру таблицы ASCII. Она следующая - коды идут последовательно, буквы упорядочены по алфавиту, сначала большие, потом маленькие. Зная это, можно написать кусок алфавита от е до о(нам больше не нужно), под е написать её код, который нам дан, а остальным буквам соответственно +1. Получим следующую табличку
e f g h i j k l m n o
101 102 103 104 105 106 107 108 109 110 111
Ну вот теперь совсем всё!
Успехов!
Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
i: byte;
begin
for i := 1 to 15 do
write(38 + random(), ' ');
end.