Мне надо вывести номер буквы в алфавите имени 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 но это не правильно
for i := 1 to 4 do write(ord(a[i]) - 64, ' '); end.
а самостоятельно подобрать число никак?
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.