Как найти произведение чисел в pascal

Сумма и произведение введенных чисел…

Код на Pascal:

var 
  i: integer;
  s,p: real;
  x: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for i := 1 to 10 do
  begin
    read(x);
    s := s + x;
    p := p * x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.

Код на PascalABC.NET:

var 
  s,p: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for var i := 1 to 10 do
  begin
    var x: integer;
    read(x);
    s += x;
    p *= x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.

Not your computer? Use Guest mode to sign in privately. Learn more

Решение задачи 6.1.2.4 на Паскале

program multinum;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  Num : word;   //Число
  D0  : word;   //Крайняя правая цифра числа
  D1  : word;   //Вторая справа правая цифра числа
  D2  : word;   //Третья справа цифра числа
  D3  : word;   //Крайняя левая цифра числа

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Write('Enter a 4-digit integer : ');
  ReadLn(Num);

  //Проверить правильность ввода данных
  if (Num < 1000) or (Num > 9999) then
    begin
      WriteLn('The number must be in the range 1000...9999');
      ReadLn;
      Exit;   //Выйти, если данные неправильные
    end;

  D0 := Num mod 10;
  D1 := (Num mod 100) div 10;
  D2 := (Num mod 1000) div 100;
  D3 := (Num div 1000);

  WriteLn('The digits of number :', D3:2, D2:2, D1:2, D0:2);
  Write(D3, ' * ', D2, ' * ', D1, ' * ', D0, ' = ');
  WriteLn(D3 * D2 * D1 * D0);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

Решение задачи 6.1.2.4 на С++

#include 
#include 

using namespace std;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
unsigned short int Num;  //Число
unsigned short int D0;   //Крайняя правая цифра числа
unsigned short int D1;   //Вторая справа правая цифра числа
unsigned short int D2;   //Третья справа цифра числа
unsigned short int D3;   //Крайняя левая цифра числа

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  cout << "Enter a 4-digit integer : ";
  cin >> Num;

  //Проверить правильность ввода данных
  if ((Num < 1000) || (Num > 9999))
  {
    cout << "The number must be in the range 1000...9999" << endl;
    system("PAUSE");
    return EXIT_SUCCESS;  //Выйти, если данные неправильные
  }

  D0 = Num % 10;
  D1 = (Num % 100) / 10;
  D2 = (Num % 1000) / 100;
  D3 = (Num / 1000);

  cout << "The digits of number : ";
  cout << D3 << ' ' << D2 << ' ' << D1 << ' ' << D0 << endl;
  cout << D3 << " * " << D2 << " * " << D1 << " * " << D0 << " = ";
  cout << D3 * D2 * D1 * D0 << endl;
  
  system("PAUSE");
  return EXIT_SUCCESS;
}