uses Robot;
begin
Task('cif2');
while FreeFromRight do begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
end.
Что-то не очень верно записана задача
что за сумма кодов?
количество символов в слове это команда length
к примеру
var
S : String;
begin
ReadLn(S); // пишем байт
WriteLn('"', S, '"');
WriteLn('Длина = ', Length(S));
end<span>.
</span>
если надо сумму цифр которыми кодируются русские буквы на клавиатуре, то таблица в прикрепленном файле, думаю не составит труда написать простейшую программку для сложения
Program gt;
var a:string;
l,i:integer;
begin
readln(A);
l:=length(a);
for i:=1 to l do
write(a[i],' ');
end.
1) 219 - сумма цифр не может равняться 19
2) 118 - 1 - сумма цифр 0 и 1; 18 - сумма цифр 9+9 - может такое быть!
3) 1411 - не реально
4) 151 -не реально, так как записывается в порядке возрастание, а в данном случае 15 и 1 - в порядке убывания
Ответ: 2) 118