Question

Пожалуйста, решите, второй раз отправляю, дам 90 балов. Сделайте программу, не копированную. Pascal, команды div и mod.Дано четырехзначное число. Вывести последовательно на экран сумму его цифр, произведение его цифр, «число-перевертыш».​

Answer 1

Ответ:

program z;

var a: integer;

begin

read(a);

writeln(a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);

writeln((a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10));

writeln(a mod 10,a mod 100 div 10,a div 100 mod 10,a div 1000)

end.

Объяснение:

работает только с четырехзначными числами

если число заканчивается на 0, то «число-перевертыш» начнётся с 0

Answer 2

Я могу помочь вам с решением задачи по программированию на языке Pascal. Вот пример программы, которая выполняет то, что вы просили:

program FourDigits;
var
  n, d1, d2, d3, d4, sum, prod, rev: integer;
begin
  writeln('Введите четырехзначное число:');
  readln(n);
  // Проверяем, что число действительно четырехзначное
  if (n >= 1000) and (n <= 9999) then
  begin
    // Используем команды div и mod для получения цифр числа
    d1 := n div 1000; // первая цифра
    d2 := (n mod 1000) div 100; // вторая цифра
    d3 := (n mod 100) div 10; // третья цифра
    d4 := n mod 10; // четвертая цифра
    // Вычисляем сумму и произведение цифр
    sum := d1 + d2 + d3 + d4;
    prod := d1 * d2 * d3 * d4;
    // Составляем число-перевертыш
    rev := d4 * 1000 + d3 * 100 + d2 * 10 + d1;
    // Выводим результаты на экран
    writeln('Сумма цифр числа ', n, ' равна ', sum);
    writeln('Произведение цифр числа ', n, ' равно ', prod);
    writeln('Число-перевертыш числа ', n, ' равно ', rev);
  end
  else
    writeln('Неверный ввод. Число должно быть четырехзначным.');
end.

Я надеюсь, что это поможет вам с вашей задачей. Удачи!