Question

1. Написати програму, яка вводить два числа і вираховує в змінній Y суму їх кубів. 2. Здійснити ввід двійкового числа та вивід його у десятковій системі числення. на мові паскальтак щоб була робоча програма оскільки я буду перевіряти

Answer 1

1.

program CubeSum;

var

x, z, y: Integer;

begin

Write('Введіть перше число: ');

ReadLn(x);

Write('Введіть друге число: ');

ReadLn(z);

y := x*x*x + z*z*z;

WriteLn('Сума кубів чисел: ', y);

end

2.

program BinaryToDecimal;

var

binaryNum, decimalNum, base, rem: Integer;

begin

Write('Введіть двійкове число: ');

ReadLn(binaryNum);

decimalNum := 0;

base := 1;

while binaryNum > 0 do

begin

rem := binaryNum mod 10;

decimalNum := decimalNum + rem * base;

binaryNum := binaryNum div 10;

base := base * 2;

end;

WriteLn('Десяткове число: ', decimalNum);

end.

Answer 2

1. Програма для обчислення суми кубів двох чисел на мові Pascal:

pascalCopy code
program SumOfCubes;
var
  X, Y: Integer;
begin
  // Ввід двох чисел
  Write('Введіть перше число: ');
  Readln(X);
  Write('Введіть друге число: ');
  Readln(Y);

  // Обчислення суми кубів
  Y := X * X * X + Y * Y * Y;

  // Вивід результату
  Writeln('Сума кубів двох чисел дорівнює ', Y);

  // Завершення програми
  Readln;
end.

2. Програма для перетворення двійкового числа у десяткову систему числення на мові Pascal:

pascalCopy code
program BinaryToDecimal;
var
  binaryStr: String;
  decimalNum, base, digit, i: Integer;
begin
  // Ввід двійкового числа у вигляді рядка
  Write('Введіть двійкове число: ');
  Readln(binaryStr);

  // Ініціалізація змінних
  decimalNum := 0;
  base := 1;

  // Обернений обхід по рядку з права наліво
  for i := Length(binaryStr) downto 1 do
  begin
    // Отримання цифри
    digit := Ord(binaryStr[i]) - Ord('0');
    
    // Додавання ваги цифри до результату
    decimalNum := decimalNum + digit * base;
    
    // Збільшення ваги
    base := base * 2;
  end;

  // Вивід результату
  Writeln('Десятковий еквівалент: ', decimalNum);

  // Завершення програми
  Readln;
end.

Ці програми можна скомпілювати та виконати в середовищі Pascal (наприклад, Turbo Pascal). Вони виконують вказані завдання.