Решаем задачи Абрамян на Паскале. String22

String22. Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа.

Решение:

program String22;
var
  Rez,i:integer;
  S:string;

begin
 Write('S:');
 Readln (S);

 Rez:=0;
 for i:=1 to Length(S) do Rez:=Rez+ord(S[i])-48;
 Writeln(rez);
end.

program String22;

var

Rez,i:integer;

S:string;

begin

Write('S:');

Readln (S);

Rez:=0;

for i:=1 to Length(S) do Rez:=Rez+ord(S[i])-48;

Writeln(rez);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String22

Комментарии:

Добавить комментарий Отменить ответ