Question

Знайдіть добуток чотирьох чисел, перше з яких дорівнює 30, а кожне наступне у 2 рази менше від попереднього. На екран виведіть добуток( в ПАСКАЛЬ АВС. net ) ни каких program, num, и всё в этом духе, мне надо исключительно (var,begin,for,writeln,readl,end и т.д(спасибо за понимание) СРООООЧНО

Answer 1

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

```

var

 i: integer;

 n, product: real;

begin

 n := 30;

 product := 1;

 for i := 1 to 4 do

 begin

   product := product * n;

   n := n / 2;

 end;

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

end.

```