Question

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

Answer 1

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

program SumOfCubes;

var

 x, y: Integer;

begin

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

 readln(x);

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

 readln(y);

 

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

 

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

end.

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

program BinaryToDecimal;

var

 binary, decimal, base, remainder: Integer;

begin

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

 readln(binary);

 

 decimal := 0;

 base := 1;

 

 while (binary <> 0) do

 begin

   remainder := binary mod 10;

   decimal := decimal + remainder * base;

   binary := binary div 10;

   base := base * 2;

 end;

 

 writeln('Десяткове представлення: ', decimal);

end.