Задание:
Составить программу нахождения суммы чисел четырехзначного числа
Решение:
Program exs; var a, i, sum: integer; beginsum: =0; readln (a); {Считывание числа} for i: =1 to 4 do begin sum: =sum+(a mod 10); {Находим остаток от деления на 10} a: =a div 10; {Выкидываем найденную цифру из числа} end; writeln (sum); end.
Знаете другой ответ?