Дано натуральное четырехзначное число n. Найти сумму его цифр.
Дано натуральное четырехзначное число n. Найти сумму его цифр.
Гость
Ответ(ы) на вопрос:
ГостьПаскаль же? var s, x: string; c, n, err, i, d, k:integer;
begin
readln (s);
n:=length(s);
for i:=1 to n do
begin d:=d+k; val(s,k,err); end; write (d); end.
Гостьvar a,b,c,d,x,res:integer; begin readln(x); a:=x div 1000; b:=x mod 10; c:=x div 100 mod 10; d:=x mod 100 div 10; res:=a+b+c+d; writeln(res); readln; end.
Не нашли ответ?
Похожие вопросы