// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var y:double:=1;
var e:=1e-5;
var y1:double;
while true do begin
y1:=y*(1.5-sqr(y));
Writeln('y1=',y1);
if abs(y1-y)<=e then break
else y:=y1;
Writeln('y=',y)
end;
Writeln('Результат: ',y1,', контрольное значение ',1/sqrt(2))
end.
<u><em>Результат:</em></u>
y1=0.5
y=0.5
y1=0.625
y=0.625
y1=0.693359375
y=0.693359375
y1=0.706708468496799
y=0.706708468496799
y1=0.707106444695907
y=0.707106444695907
y1=0.707106781186307
Результат: 0.707106781186307, контрольное значение 0.707106781186547
Var
a:integer;
begin
Readln(a);
Writeln((a div 10 + a mod 10)/2);
end.
<u>Пример:</u>
12
1.5
1. выделить объект
2. нажать на нем правую кнопку мыши
1. Клавиатура.
2. Мышь.
3. Сенсорная клавиатура.