Мне надо вывести номер буквы в алфавите имени SIMA var a : array [1..4] of char; i: integer; begin a[1]:='S'; a[2]:='I'; a[3]:='M'; a[4]:='A'; for i:=1 to 4 do write(ord(a[i])-191,' '); end. Исправьте ошибку. Мне выдаёт -108 -...
Мне надо вывести номер буквы в алфавите имени SIMA
var a : array [1..4] of char;
i: integer;
begin
a[1]:='S';
a[2]:='I';
a[3]:='M';
a[4]:='A';
for i:=1 to 4 do
write(ord(a[i])-191,' ');
end.
Исправьте ошибку. Мне выдаёт -108 -118 -114 -126 но это не правильно
Гость
Ответ(ы) на вопрос:
Гостьvar
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
а самостоятельно подобрать число никак?
Не нашли ответ?
Похожие вопросы