Запишите
на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ.

обезательно делать Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ.

uses crt

program №1;uses crt;var st:String;q,i:Integer;beginclrscr;writeln('Данная программа позволяет вычислить сумму кодов всех букв входящих в заданное слово');writeln('Введите слово ( количество букв в слове не должно превышать 50)');readln(st);q:=0;for i:=1 to length(st) doq:=q+ord(st[ i ]);Writeln(q);readkey;end.