задача по информатике: запишите на языке паскаль программу которая вычисляет сумму кодов в слове байт, очееень сроочноо, заранее спасибооо
Ответы на вопрос
Ответил Студэн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.
//кодировка 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.
Новые вопросы