1. Написати програму, яка вводить два числа і вираховує в змінній Y суму їх кубів.
2. Здійснити ввід двійкового числа та вивід його у десятковій системі числення.
на мові паскаль
так щоб була робоча програма оскільки я буду перевіряти
2. Здійснити ввід двійкового числа та вивід його у десятковій системі числення.
на мові паскаль
так щоб була робоча програма оскільки я буду перевіряти
More Questions From This User See All
Answers & Comments
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.