Мне нужно чтобы измененное слово выводилось не в столбик а заменялось новым программа: uses graphabc; var i: integer; const slovo = 'misha'; begin for i: = 1 to 100 do begin setfontcolor(rgb(random(225), random(225), random(; setfontsize (random (20)); setbrushcolor(rgb(random(225), random(225), random(; writeln(slovo); sleep (100); end end.

Uses GraphAbc;

Var i:integer;

const slovo = 'Misha';

begin

for i:= 1 to 100 do  

begin

SetFontColor(rgb(random(225),random(225),random(225)));

SetFontSize (random (20)+1);

SetBrushColor(rgb(random(225),random(225),random(225)));

textout(0,0,slovo);

sleep (100);

Clearwindow()

end

end.

P.s когда функция SetFontSize (random (20)) равно 0, то выходит ошибка, поэтому я написал "+1".

В ячейке B3 получится формула: =D$2+$D3  

20+30=50

ответ: 50

Объяснение:

По условию задачи из ячейки A2 скопировали формулу в ячейку В3, то есть мы переместились на позицию вниз и на позицию вправо, значит и значения в формуле: =C$2+$D2  должны изменить свое значения на позицию вниз и вправо: С2 заменилось бы на D3, но знак $ - означает абсолютную ссылку (неизменяемая при перемещении), значит меняется только значение столбца С на D а строка 2 остается неизменной: получается D$2. Аналогично и с $D2, столбец D не изменяется, а строка 2 меняется на 3 получаем  $D3

В итоге в ячейке B3 имеем формулу: =D$2+$D3

const  A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.

Объяснение:

sqr(x) -- квадрат x.

sqrt(x) -- квадратный корень x.

power(x, y) -- x в степени y.

real.IsNaN(x) -- x не является числом (условие).

В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).

Алгоритм можно написать по выше данному коду.

Пример работы:

"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."