Найти сумму цифр четырехзначного числа Program nfff; var ab,S,a,b: integer; Begin WriteLn('найти сумму цифр четырехзначного числа'); Write('Введите ab= ');ReadLn(ab); b:=ab mod 10; a:=ab div 10; S:=a+b; writeln('S=',S);...
Найти сумму цифр четырехзначного числа
Program nfff;
var ab,S,a,b: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите ab= ');ReadLn(ab);
b:=ab mod 10;
a:=ab div 10;
S:=a+b;
writeln('S=',S);
End.
Гость
Ответ(ы) на вопрос:
ГостьProgram nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
Не нашли ответ?
Похожие вопросы