Запишите на языке Паскаль программу,которая вычисляет сумму кодов букв в слове БАЙТ!
Answers & Comments
PuerDeSatan
Var st: string; i: byte; sum: integer; begin st := 'БАЙТ'; for i:=1 to Length(st) do sum:=sum+ord(st[i]); Writeln('Сумма кодов букв в слове БАЙТ = ', sum); end.
Answers & Comments
st: string;
i: byte;
sum: integer;
begin
st := 'БАЙТ';
for i:=1 to Length(st) do sum:=sum+ord(st[i]);
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.