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.