var
x: real;
cost: real; //Стоимость капитала
i: integer;
begin
cost:= 20; //Начальная стоимость равна 20
writeln('Введите ежегодный прирост в процентах');
readln(x); //Вводим ежегодный прирост в процентах
for i:= 1626 to 2012 do {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost:= cost + cost * (x / 100);
writeln('Стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {Выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
Отметь решение как лучшее)
int a = 10;int b = 20;int c = 30;int d = 40;int aa = 90;int bc = 100;int dac = 30;int bdc = 50;int cc = 70;int dc = 80;int aac = 90;int bbc = 10;
// Это 10 нат. чисел
long Deystvie1 = a + b + c + d + aa + bc + cc + dc + dac + bdc + aac + bbc;long Deystvie2 = a * b * c * d * aa * bc * cc * dc * dac * bdc * aac * bbc; Console.WriteLine("Произведение чисел:", Deystvie2);Console.WriteLine("Сумма чисел:", Deystvie1);