Question

Задача, состав те программу в паскале! 1)Дано трехзначное число. Определить количество всех различных трехзначных чисел, которые можно составить из цифр этого числа. 2) Даны три числа. Подсчитать количество четных чисел . Заранее спасибо !

Answer 1

Пожалуйста, я сегодня добрый :) Первая задача.

 

var
  s, mn: set of integer;
  f: boolean;
  k, n, c, i, j, kol: integer;

begin
  writeln('Введите трехзначное число:');
  repeat readln(n) until n in [100..999]; // защита от "дурака"
  k := n;    // записываем число, чтобы вывести на результат
 
  while n <> 0 do
  begin           // пока число не станет равно нулю...
    c := n mod 10;   // последняя цифра числа
    include(s, c);   // вносим эту цифру в множество
    n := n div 10    // у числа отсекаем рассмотренную цифру
  end;
 
  for i := 100 to 999 do
  begin    // рассматриваем все трехзначные числа
    mn := s; j := i; f := true;  // все обнуляем
    while j <> 0 do
    begin    // пока рассматриваемое число не будет равно нулю
      c := j mod 10;    // последняя цифра числа
      if c in mn then exclude(mn, c) else f := false;    // если число во множестве, то убираем его оттуда, чтобы избежать повторений, иначе - не рассматриваем его.
      j := j div 10;    // у числа отсекаем рассмотренную цифру
    end;
    if f then begin inc(kol); write(i:6) end    // если проверка прошла успешно, то выводим число на экран и прибавляем значение переменной-счетчика!
  end;
 
 
  writeln; writeln('Из ', k, ' можно составить ', kol, ' чисел!');   // выводим результат
  readln;
end.

 

==========================================================

А вот вторая, комменты к ней писать было уже лень:

 

var
  k, i, n, kol: integer;

begin
  writeln('Количество трехзначных чисел, которые вы далее введете?');
  repeat readln(k) until k in [1..10];
  for i := 1 to k do
  begin
    writeln('Введите ', i, ' трехзначное число:');
    repeat readln(n) until n in [100..999];
    while n <> 0 do
    begin
      if ((n mod 10) mod 2 = 0) then inc(kol);
      n := n div 10;
    end;
  end;
  writeln('Количество четных чисел = ',kol);
  readln  
end.

Answer 2

Задача 1: Определение количества различных трехзначных чисел

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

1. Считайте трехзначное число с помощью оператора `readln`. 2. Используйте циклы `for` для перебора всех возможных комбинаций трехзначных чисел. 3. В каждой итерации цикла проверьте, является ли текущая комбинация трехзначным числом. 4. Если комбинация является трехзначным числом, увеличьте счетчик на 1. 5. По окончании цикла выведите значение счетчика, которое будет представлять количество различных трехзначных чисел, которые можно составить из цифр данного трехзначного числа.

Пример кода на Pascal:

program CountDifferentNumbers;

var
  number, count: integer;
  digit1, digit2, digit3: integer;

begin
  writeln('Введите трехзначное число:');
  readln(number);

count := 0;

for digit1 := 1 to 9 do
  begin
    for digit2 := 0 to 9 do
    begin
      for digit3 := 0 to 9 do
      begin
        if (digit1 <> digit2) and (digit1 <> digit3) and (digit2 <> digit3) then
        begin
          if (digit1 * 100 + digit2 * 10 + digit3) <> number then
          begin
            count := count + 1;
          end;
        end;
      end;
    end;
  end;

writeln('Количество различных трехзначных чисел, которые можно составить из цифр числа ', number, ': ', count);
end.

Задача 2: Подсчет количества четных чисел

Для решения данной задачи вам потребуется использовать операторы условия и циклы.

1. Считайте три числа с помощью оператора `readln`. 2. Используйте циклы `for` или `while` для перебора каждого числа. 3. В каждой итерации цикла проверьте, является ли текущее число четным. 4. Если число четное, увеличьте счетчик на 1. 5. По окончании цикла выведите значение счетчика, которое будет представлять количество четных чисел среди трех заданных чисел.

Пример кода на Pascal:

program CountEvenNumbers;

var
  number1, number2, number3: integer;
  count: integer;

begin
  writeln('Введите три числа:');
  readln(number1, number2, number3);

count := 0;

if number1 mod 2 = 0 then
    count := count + 1;

if number2 mod 2 = 0 then
    count := count + 1;

if number3 mod 2 = 0 then
    count := count + 1;

writeln('Количество четных чисел среди заданных чисел: ', count);
end.

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