Дано натуральное число N. Вычислить сумму его цифр
program seven;
var s:string;
n,i,len:integer;
begin
write('Введите число ');
read(s);
len:=length(s);
for i:=1 to len do
n:=n+strtoint(s[i]);
writeln('n= ',n);
end.
Теги:
число,
length,
strtoint,
writeln,
Введите,
write,
seven,
string,
integer,
begin
,
program
Комментарии:
Нету комментариев для вывода...