1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
Мне так кажется, что так:
1.Учитель проверяет тетради с диктантом, который написали учащиеся - <span>Циклический алгоритм
</span>2.Радиолюбитель собирает приемник, выполняя последовательность сборки, приведенную в журнале -<span>Последовательный алгоритм
</span>3. На берегу моря ребенок строит замок из мокрого песка -<span>Это невозможно представить в виде алгоритма</span>
Ответ:
var a,b,x,y,y1,y2,y3: real;
begin
a:=2.5;
b:=1.5;
write('x = ');
readln(x);
y1:=sin((a+x)*(a+x));
y2:=power(abs(x-a),1/3);
y3:=ln((x-b)*(x-b)+1);
y:=x*y1*y1-y2+y3;
writeln('Y = ',y);
y1:=sqrt(a*x*x+x);
y2:=a*exp(-a*x);
y3:=ln(abs(1-x)+1);
y:=y1+y2+y3;
writeln('F = ',y);
end.
Ответ:Б)DCF
я сегодня решал, просто рубли делишь на мб/кб/гб пока не останется байт