Информатика, вопрос задал fuzabe77 , 8 лет назад

задача по информатике: запишите на языке паскаль программу которая вычисляет сумму кодов в слове байт, очееень сроочноо, заранее спасибооо

Ответы на вопрос

Ответил Студэнt
0
//прога на Pascal`e
//кодировка Unicode!
var
i : byte;
sum : longint;
s : string;
begin
{write ('Введите слово: ');readln (s);}
s:='байт';
       for i:=1 to length (s) do inc (sum, ord(s[i]));
write ('Сумма кодов: ', sum);
end.
Новые вопросы