// 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
2^36=<span>68719476736.............</span>
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.
<span>Windows,Macintosh,Linux, DOS .</span>
1100001₂=2⁶+2⁵+2⁰=64+32+1=97₁₀
101101₂=2⁵+2³+2²+2⁰=32+8+4+1=45₁₀