Question

Знайдіть добуток чотирьох чисел, перше з яких дорівнює 30, а кожне наступне у 2 рази менше від попереднього. На екран виведіть добуток( В ПАСКАЛЬ ) ИМЕННО В ПАСКАЛЬ Очень срочно!!!!!

Answer 1

program Multiply;

var

 i, num, product: integer;

begin

 num := 30;

 product := 1;

 for i := 1 to 4 do

 begin

   product := product * num;

   num := num div 2;

 end;

 writeln('Добуток: ', product);

end.

При виконанні програми на екрані буде виведено добуток чотирьох чисел, який дорівнює 506250.

Answer 2

Для розв'язання цієї задачі, ми можемо використати цикл у мові програмування Паскаль. Ось код, який обчислить добуток чотирьох чисел, де перше число дорівнює 30, а кожне наступне число у 2 рази менше від попереднього:

program MultiplyNumbers;
var
  i, product, number: integer;
begin
  product := 1;
  number := 30;
  
  for i := 1 to 4 do
  begin
    product := product * number;
    number := number div 2;
  end;
  
  writeln('Добуток чотирьох чисел: ', product);
end.

Цей код обчислить добуток чисел 30, 15, 7 та 3, і виведе результат на екран. Добуток цих чисел дорівнює 3150.

Примітка: Якщо вам потрібно вивести результат на екран у мові Паскаль, ви можете використати процедуру `writeln`, як показано у коді вище.