Var
a:integer;
begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
а) третий рисунок
б) 4 раза
Компьютеры обычно не разрешают называть файлы с этими символами: " № # % ^ & | \ / ' ~
Если тебе не сложно отметь пож этот ответ лучшим
Вариант а) насколько я могу понять, только в задании по-моему формула с ошибкой. Cумма <em>
n</em> первых членов арифметической прогрессии:
![S_{n}= n*(\frac{2a_{1}+d(n-1)}{2})](https://tex.z-dn.net/?f=S_%7Bn%7D%3D%20n%2A%28%5Cfrac%7B2a_%7B1%7D%2Bd%28n-1%29%7D%7B2%7D%29%20)
тогда, если умножить дробь на
<em>n</em> и сократить на 2, где можно, то и получится вариант а)
![a_{1}n+ \frac{n}{2}*(n-1)*d](https://tex.z-dn.net/?f=a_%7B1%7Dn%2B%20%5Cfrac%7Bn%7D%7B2%7D%2A%28n-1%29%2Ad)
Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39