Вообще-то для решения задачи нужно знать коды ВСЕХ символов, составляющих это слово. Эти коды такие
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
Ну вот теперь совсем всё!
Успехов!
Блок-схемы - во вложениях
1.
Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Введите стороны треугольника');
write('Введите а');
readln(a);
write('Введите b');
readln(b);
write('Введите c');
readln(c);
p:=(a+b+C)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s);
end.
2.
Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
write('Введите длину основания ');
readln(a);
write('Введите ширину основания ');
readln(b);
write('Введите высоту параллелепипеда ');
readln(h);
s := 2*(a*b+b*h+h*a);
v := a*b*h;
r := 4*(a+b+h);
writeln('Объём равен ',v);
writeln('Площадь полной поверхности равна ',s);
writeln('Сумма рёбер равна ',r);
end.
