Question

Задача 1. Дано трехзначное число. Найти и вывести сумму его цифр. Составить программу Paskal . Задача 2. Дано целое число. Найти число его десятков. Например, у числа 326 ответом будет 2, так как 2 десятка. Составить программу Paskal.Помогите пожалуйста...

Answer 1

Задача 1:
program z1;
var a,b,c,sum : integer;
begin
read (a);
b:=a mod 10;
c:= a mod 100;
c:= c div 10;
a:=a div 100;
sum:= a+b+c;
writeln (sum);
end.

Задача 2:
program z2;
var a: integer;
begin
read (a);
a:=a mod 100;
a:= a div 10;
writeln (a);
end.

Answer 2

Задача 1: Найти и вывести сумму цифр трехзначного числа

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

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.

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

Пример работы программы: ``` Введите трехзначное число: 326 Сумма цифр числа 326 равна 11 ```

Задача 2: Найти число десятков целого числа

Для решения этой задачи вам нужно найти вторую цифру числа. Вот пример программы на языке Pascal, которая решает эту задачу:

program TensDigit;
var
  number, tensDigit: integer;
begin
  writeln('Введите целое число:');
  readln(number);
  
  tensDigit := (number div 10) mod 10;  // вторая цифра числа
  
  writeln('Число десятков числа ', number, ' равно ', tensDigit);
end.

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

Пример работы программы: ``` Введите целое число: 326 Число десятков числа 326 равно 2 ```

Надеюсь, эти программы помогут вам решить задачи. Если у вас возникнут еще вопросы, не стесняйтесь задавать!