Ответы
Ответ дал:
8
const
b = 'байт';
var
l,i,s : integer;
begin
l := Length(b);
s := 0;
for i := 1 to l do
s := s +ord(b[i]);
writeln (s);
end.
b = 'байт';
var
l,i,s : integer;
begin
l := Length(b);
s := 0;
for i := 1 to l do
s := s +ord(b[i]);
writeln (s);
end.
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад