Назад   Задать вопрос
Информатика
7 класс
5 отметок
+ В закладки
23.06.2013, 16:53

Составить программу решения задачи: Дано целое трехзначное число а. Найти сумму цифр данного числа.

Комментарии (0)

Решить задание

Добавить ответ, могут только Зарегистрированные или Авторизированные пользователи.

Ответы и решения


24.06.2013, 00:09

 

var
sum, n : integer;
begin
sum:= 0;
writeln ('Введите трехзначное число:');
readln (n);
while n>0 do
begin
sum:=sum+n mod 10;
n:= n div 10;
end;
writeln ('Сумма цифр заданного числа =',sum);
end.

Оценка: 3.0 (голосов: 2)

Комментарии (0)