Найти сумму цифр четырехзначного числа в паскалях
Найти сумму цифр четырехзначного числа в паскалях
Гость
Ответ(ы) на вопрос:
Гостьprogram al;
var a,b,c,d,n,s:integer;
begin
writeln('n=');
readln(n);
s:=0;
a:=n mod 10;
b:=n mod 100 div 10;
c:= n div 100 mod 10;
d:=n div 1000;
s:=a+b+c+d;
writeln('s=',s);
readln;
end.
Не нашли ответ?
Похожие вопросы