Переменная Х содержит трехзначное целое число. подсчитать сумму цифр этого числа
Program abc;
var x,a,b,c: integer;
begin
writeln(vvedite chislo);
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
writeln(a+b+c);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
