Var A,B,C :real;
time :integer;
begin
Writeln('сколько заработал за лето');
readln(c);
Writeln('стипендия = ');
readln(A);
Writeln('расходы на проживание');
Readln(b);
C:=c+a-b;
while (c>=0) do begin
C:=c+a-b;
b:=b+(b/100*3);
time:=time+1;
end;
writeln('денег хватит на ',time,' месяцев');
<span>end.</span>
5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -
Количество цветов n = 2^i = 2^6 = 64
Дано:
П+В=14200
П=9700
П*В=5100
Найти: В-?
Решение:
В=(П+В)-П+П*В=14200-9700+5100=9600
ответ 9600