коды символов следующие за введенными

[strateg66]

Найти среднеарифметическое трех кодов символов, которые следуют за введенными с клавиатуры

[russian-stalker]

Может так:

program Project2;
var
a,b,c:char;

begin
  readln(a,b,c);
  writeln((ord(a)+ord(b)+ord(c)+3)/3);
  read(a);
end.

[LeBron]

russian-stalker, как-то подозрительно... read(a); - это зачем?
и можно чуть оптимизировать:

var
a,b,c:char;
begin
  readln(a,b,c);
  writeln((ord(a)+ord(b)+ord(c))/3+1);
end.

мне вынос 3ки за скобки кажется более красивым, хотя у каждого свой вкус.

[XeN0N]

1234567890

[Вавел из ГМТУ]

А зачем там +1 ?

(ord(a)+ord(b)+ord(c)) / 3

[russian-stalker]

LeBron,чтобы после выполнения можно было посмотреть результат.
Вавел из ГМТУ, читайте внимательнее условие задания

[Вавел из ГМТУ]

а, ну да......

[LeBron]

Сообщение от russian-stalker

LeBron,чтобы после выполнения можно было посмотреть результат.
Вавел из ГМТУ, читайте внимательнее условие задания

а, тогда понятно. Просто давно не пользовался ТР, вот и не понял. Тогда для
"совпадания с учебником" пишем
readln;
хотя, возможно учитель/препод похвалит за креативность.

[strateg66]

следущий символ на клавиатуре отличается от предыдущего на 1?
и действительно не пойму почему +1?

[XeN0N]

не на клавиатуре, а в таблице символов
коды букв
a - 97
b - 98
c - 99