Выведите сколько денег стало у Васи - Pascal ABC

Формулировка задачи:

3. Уличная магия Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды Ограничение по памяти 64 МБ Вася заработал много денег. Вася обучался магии и решил за счет этого обогатиться. Он соединил все номиналы купюр в одну купюру, чем преумножил свой капитал. Наставник Васи узнал, чем он занимается, и решил его наказать. Он превратил одну купюру очень большого наминала в кучу маленьких с номиналами, соответствующими цифрам из исходной купюры. Подсчитайте сколько денег стало у Васи. Формат входных данных В единственной строке содержится одно неотрицательное целое число, содержащее не более 1000000 цифр*– номинал купюры. Формат выходных данных Выведите сколько денег стало у Васи. Пример input.txt output.txt 99 18 1234 10

Решение задачи: «Выведите сколько денег стало у Васи»

Листинг программы

var
   s:string;
   r,i:integer;
   a,o:text;
begin
assign(a,'input.txt');
assign(o,'output.txt');
reset(a);
rewrite(o);
while not eof(a) do
  begin
    readln(a,s);
    for i:=1 to length(s) do
      inc(r,strtoint(s[i]));
    writeln(o,r);
    r:=0;
  end;
close(a);
close(o);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные s, r, i, a и o. Переменная s типа string предназначена для хранения содержимого файла input.txt, переменная r типа integer используется для подсчета суммы денег, переменная i также типа integer используется для итерации по строке s, а переменные a и o типа text используются для чтения и записи файлов соответственно.
Затем выполняется назначение файлов input.txt и output.txt с помощью функции assign.
Следующий шаг - сброс файла output.txt с помощью функции reset.
Затем выполняется цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла input.txt.
Внутри цикла считывается содержимое файла input.txt в переменную s с помощью функции readln.
Затем происходит цикл for, который выполняется от 1 до длины переменной s. Внутри цикла переменная r увеличивается на значение каждого символа в переменной s, преобразованного в целое число с помощью функции strtoint.
После завершения внутреннего цикла переменная r записывается в файл output.txt с помощью функции writeln.
После окончания внешнего цикла переменная r сбрасывается до 0 с помощью оператора inc.
По завершении работы с файлами они закрываются с помощью функций close.
Код завершается.