Question

Вводится трёхзначное число. Найдите и выведите сумму его цифр. Ответ прикрепите в виде файла в среде PascalABC.

Answer 1

Var a:integer;
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.

Answer 2

Для нахождения суммы цифр трехзначного числа в среде PascalABC, вы можете использовать следующий код:

program SumOfDigits;
var
  number, digit1, digit2, digit3, sum: integer;
begin
  writeln('Введите трехзначное число:');
  readln(number);
  
  digit1 := number div 100; // первая цифра числа
  digit2 := (number div 10) mod 10; // вторая цифра числа
  digit3 := number mod 10; // третья цифра числа
  
  sum := digit1 + digit2 + digit3; // сумма цифр
  
  writeln('Сумма цифр числа ', number, ' равна ', sum);
end.

В этом коде мы сначала запрашиваем у пользователя трехзначное число. Затем мы используем операции деления и остатка от деления, чтобы получить каждую цифру числа. Далее мы складываем эти цифры и выводим сумму на экран.

Вы можете скопировать этот код в среду PascalABC и запустить его, чтобы получить сумму цифр трехзначного числа.