Срочно. Помогите пожалуйста. В программе Паскаль. Знайти сумму цифр двознакового числа перевирити х=81. Знайти сумму цифр тризнакового числа перевирити х=541.

Ответ:

Объяснение:

Для перевірки виконання умови задач з допомогою мови програмування Паскаль можна скористатися наступним кодом:

```pascal

program sum_of_digits;

var

 x, n, sum: integer;

begin

 writeln('Enter a two-digit number:');

 readln(x);

 if (x < 10) or (x > 99) then

   writeln('Error: invalid input')

 else begin

   n := x div 10 + x mod 10;

   writeln('The sum of digits is ', n);

   if n <> 81 then

     writeln('Error: condition not met');

 end;

 writeln('Enter a three-digit number:');

 readln(x);

 if (x < 100) or (x > 999) then

   writeln('Error: invalid input')

 else begin

   sum := 0;

   while x > 0 do begin

     sum := sum + x mod 10;

     x := x div 10;

   end;

   writeln('The sum of digits is ', sum);

   if sum <> 541 then

     writeln('Error: condition not met');

 end;

end.

```

При введенні двоцифрового числа програма розраховує суму його цифр і перевіряє, чи відповідає вона значенню 81. Аналогічним чином, при введенні трьохцифрового числа програма розраховує суму його цифр і перевіряє, чи відповідає вона значенню 541. Якщо введене число не відповідає встановленому формату, програма видає повідомлення про помилку.