Написать программу нахождения суммы цифр трехзначного числа (для отрицательных и положительных чисел)
Starter:
Паскаль?
Ответы
Ответ дал:
50
Program zzadani;
Var n,b,a,c:integer;
Begin
Writeln('Введите трехзначное число');
Readln(n);
a:=n div 100;
b:=(n div 10) mod 10;
c:=(n mod 100) mod 10;
n:=a+b+c;
Writeln('Сумма цифр данного числа=',n);
End.
Var n,b,a,c:integer;
Begin
Writeln('Введите трехзначное число');
Readln(n);
a:=n div 100;
b:=(n div 10) mod 10;
c:=(n mod 100) mod 10;
n:=a+b+c;
Writeln('Сумма цифр данного числа=',n);
End.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
7 лет назад
7 лет назад