Кто-нибудь скажите как это делать, ?

Объяснение:

pyfxtybt gjuhtiyjcnb - значение погрешности

ghbvth fkujhbnvf - пример алгоритма

yfqnb kjufhbav - найти логарифм

dsxbckbnm pyfxtybt - вычислить значение

ghbvth ghjuhfvvs - пример программы

pyfrevyj;tybz - знак умножения

dsgjkybnm eckjdbt - выполнить условие

kjufhbav aeyrwbb - логарифм функции

pfgbcfnm ghjuhtccb. - записать прогрессию

bpvthbnm fvgkbnele - измерить амплитуду

ckj;bnm dshf;tybz - сложить выражения

htibnm pflfxe - решить задачу

yfxfnm htitybt - начать решение

yfgbcfnm fkujhbnv - написать алгоритм

ckj;bnm xbckf - сложить числа

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.