Question

Pascal.ABC Задача 1:Вывести все двузначные числа по 10 в каждой строке.Задача 2:Посчитать сумму и произведение всех цифр введенного числа nПодсказка: n mod 10Задача 3:Пользователь вводит шестизначное число. Проверить палиндром ли это.-

Answer 1

1.

begin

   for var i := 1 to 9 do begin

       for var j := 0 to 9 do write(i*10+j, ' ');

       writeln;

   end;

end.

2.

var

   n, s, p : integer;

begin

   write('введите число n=');

   readln(n);

   p := 1;

   while n > 0 do begin

       s += n mod 10;

       p *= n mod 10;

       n := n div 10;

   end;

   writeln('сумма ', s);

   writeln('произведение ', p)

end.

3.

var

   a : integer;

begin

   write('введите 6-и значное число: ');

   readln(a);

   if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');

end.

Answer 2

Привет! Я заметил, что у тебя есть несколько задач, и я рад помочь с их решением. Давай разберем каждую из задач по очереди.

Задача 1: Вывести все двузначные числа по 10 в каждой строке.

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

pascalCopy code
program Task1;

var
  number: integer;
  
begin
  number := 10;
  
  while number <= 99 do
  begin
    write(number, ' ');
    if (number - 9) mod 10 = 0 then
      writeln;
    Inc(number);
  end;
  
end.

Задача 2: Посчитать сумму и произведение всех цифр введенного числа n.

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

pascalCopy code
program Task2;

var
  n, digit, sum, product: integer;

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

  sum := 0;
  product := 1;

  while n > 0 do
  begin
    digit := n mod 10;
    sum := sum + digit;
    product := product * digit;
    n := n div 10;
  end;

  writeln('Сумма цифр числа: ', sum);
  writeln('Произведение цифр числа: ', product);

end.

Задача 3: Пользователь вводит шестизначное число. Проверить, является ли оно палиндромом.

Палиндром - это число, которое одинаково читается слева направо и справа налево. Например, 121, 12321, 4554 - это палиндромы, а 123, 12345, 678876 - нет. Для проверки является ли шестизначное число палиндромом, мы разбиваем его на цифры и сравниваем симметричные цифры относительно середины числа. Вот пример кода на языке Pascal:

pascalCopy code
program Task3;

var
  number, originalNumber, reversedNumber, digit: integer;

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

  originalNumber := number;
  reversedNumber := 0;

  while number > 0 do
  begin
    digit := number mod 10;
    reversedNumber := reversedNumber * 10 + digit;
    number := number div 10;
  end;

  if originalNumber = reversedNumber then
    writeln('Это число является палиндромом.')
  else
    writeln('Это число не является палиндромом.');

end.

Пожалуйста, обрати внимание, что во всех этих примерах пользователь должен вводить числа в консоль.