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

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

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

Код к задаче: «Выведите сколько денег стало у Васи - Pascal ABC»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы