Викентий 26 ноября 2019 в 09:39
создать массив из 4х элементов
каждому элементу присвоить по букве из своего имени
вывести на экран шийровку буквы (ее номер в алфавите)
Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.
создать массив из 4х элементов
каждому элементу присвоить по букве из своего имени
вывести на экран шийровку буквы (ее номер в алфавите)
Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.
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.
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.
Для комментирования необходимо зарегистрироваться на сайте