Мне надо вывести номер буквы в алфавите имени 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.
а самостоятельно подобрать число никак?
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
