Программирование циклических алгоритмов. программирование циклов с заданнымусловием продолжения работы. : клиент открыл счет в банке в 2017 году, вложив 1000 рублей. каждый год начисляется 20% с той суммы, которая оказалась на счете на конец года. какова будет сумма в 2030 году.

217

328

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

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

vladusha2

Информатика

4,8(13 оценок)

Var sum: real; i: integer; begin sum : = 1000; for i : = 2017 to 2030 do sum : = 1.2 * sum; writeln(sum); end.

NooDys

Информатика

4,8(76 оценок)

Var d, a, b, c, x1, x2: real; begin writeln('введите a, b, c'); readln(a, b, c); d : = b * b - 4 * a * c; if d > 0 then begin x1 : = (-b + sqrt(d)) / (2 * a); x2 : = (-b - sqrt(d)) / (2 * a); writeln('x1 = ', x1: 2: 2); writeln('x2 = ', x2: 2: 2); end else if d = 0 then begin x1 : = -b / (2 * a); writeln('x = ', x1: 2: 2); end else writeln('нет действительных корней'); end.