Запишите на языке Паскаль программу,которая вычисляет сумму кодов букв в слове БАЙТ!
const
s = БАЙТ;
var
i, sum : integer;
begin
sum := 0;
for i := 1 to 4 do
sum := sum + ord (s[i]);
writeln (sum);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Запишите на языке Паскаль программу,которая вычисляет сумму кодов букв в слове БАЙТ!
const
s = БАЙТ;
var
i, sum : integer;
begin
sum := 0;
for i := 1 to 4 do
sum := sum + ord (s[i]);
writeln (sum);
end.