Question

Составить программу для паскаля.1)Определить количество трехзначных чисел сума цифр которых равна числу N.2)Дано натуральное число N.Составить программу меняющихся местами первую и последнюю цифру.

Answer 1

1)
var  s: string;
  i, n,c: integer;
begin
  read(n);
  for i := 100 to 999 do
  begin
    s:=inttostr(i);
    c:=(strtoint(s[1])+strtoint(s[2])+strtoint(s[3]));
    if(n=c)then writeln(s);
  end;
end.

2)
var  s: string;
begin
  read(s);
  swap(s[1],s[s.Length]);
  write(s);
end.

Answer 2

Определение количества трехзначных чисел с суммой цифр, равной числу N

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

program CountThreeDigitNumbers;

var
  N, count: integer;
  i, j, k: integer;

begin
  count := 0;

// Ввод числа N
  write('Введите число N: ');
  readln(N);

// Перебор всех трехзначных чисел
  for i := 1 to 9 do
  begin
    for j := 0 to 9 do
    begin
      for k := 0 to 9 do
      begin
        // Проверка суммы цифр
        if (i + j + k = N) then
          count := count + 1;
      end;
    end;
  end;

// Вывод результата
  writeln('Количество трехзначных чисел с суммой цифр, равной ', N, ': ', count);
end.

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

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

Программа для меняющихся местами первую и последнюю цифру

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

program SwapFirstAndLastDigit;

var
  N, swappedNumber: integer;
  firstDigit, lastDigit, temp: integer;

begin
  // Ввод числа N
  write('Введите число N: ');
  readln(N);

// Получение первой и последней цифры
  lastDigit := N mod 10;
  temp := N div 10;
  while temp > 9 do
  begin
    temp := temp div 10;
  end;
  firstDigit := temp;

// Меняем местами первую и последнюю цифру
  swappedNumber := lastDigit * 10;
  temp := N div 10;
  temp := temp div 10;
  temp := temp * 10 + firstDigit;
  swappedNumber := swappedNumber + temp;

// Вывод результата
  writeln('Число после замены первой и последней цифры: ', swappedNumber);
end.

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

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