Решите в pascal! ! какую начальную сумму надо положить в банк, чтобы через 50 лет на счёту было 1.000.000 $, если процентная ставка 5 % в год.

276

470

Посмотреть ответы 2

Ответы на вопрос:

2285811

Информатика

4,7(24 оценок)

var k,p,d: real; i: integer; begin write('write kol: '); readln(k); write('write percent: '); readln(p); for i: =1 to 50 do d: =k/(1+(p/100)*i); writeln(d: 0: 2); end. код может быть так как нет данных для проверки.

gagaga2213

Информатика

4,6(59 оценок)

Pascalabc.net: begin var a: =arrrandom(50,-500,500); a.println; var k: =a.where(x-> (abs(x) mod 10 = ; var s: =a.where(x-> (abs(x) mod 10 = ; if k=0 then writeln('в массиве нет элементов, оканчивающихся цифрой 3') else writeln('среднее арифметическое элементов массива, оканчивающихся цифрой 3 = ',s/k); end. пример (для 10 элементов): 450 -159 189 463 262 220 -125 -41 -178 -62 среднее арифметическое элементов массива, оканчивающихся цифрой 3 = 463