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