Вычислить и вывести на экран сумму цифр введенного пользователем числа

@Никита199615 · Регистрация: 24.10.2013

"Пользователь вводит с клавиатуры натуральное число, проверить корректность ввода, вычислить и вывести на экран сумму цифр введенного пользователем числа."

можно пожалуйста программу с начала и до конца

@Puporev · 29.06.2014, 09:38

Pascal

uses crt;
var n,c:integer;
    s:string;
    sum:byte;
begin
repeat
writeln('Введите натуральное число');
readln(s);
val(s,n,c);
if(c<>0)or(n<1)then writeln('Число введено неверно, повторите')
until(c=0)and(n>0);
sum:=0;
while n>0 do
 begin
  sum:=sum+n mod 10;
  n:=n div 10
 end;
write('Сумма цифр=',sum)
end.

@Никита199615 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 20
		1
	Вычислить и вывести на экран сумму цифр введенного пользователем числа 29.06.2014, 09:16. Показов 7886. Ответов 1 Метки нет (Все метки) "Пользователь вводит с клавиатуры натуральное число, проверить корректность ввода, вычислить и вывести на экран сумму цифр введенного пользователем числа." можно пожалуйста программу с начала и до конца 0

Опции темы

Вычислить и вывести на экран сумму цифр введенного пользователем числа

Решение