Предыдущая публикация
Помогите составить программу решения задачи: ввести целое число и найти сумму его цифр.
Паскаль.Тема урока: Программирование циклов с заданным условием окончания работы.
Следующая публикация
Паскаль.Тема урока: Программирование циклов с заданным условием окончания работы.
Комментарии 1
Это дельфи. Но и на паскале должно работать.
var
i,sum: integer;
digit: string;
....
Readln(digit);
sum := 0;
for i := 1 to Length(digit) do
sum := sum + StrToInt(digit[i]);
Writeln('Sum: ', sum);