Это калькулятор,он вычисляет сумму цифр числа
Function F(x,eps:double):double;
var
s0,s1,sgn,d:real;
begin
s1:=x; d:=1; sgn:=1;
repeat
s0:=s1; d:=d+1; sgn:=-sgn;
s1:=s0+sgn*x/d
until abs(s1-s0)<=eps;
f:=s1
end;
var
x:double;
begin
x:=-0.5;
while x<=0.5 do begin
Writeln(x:4:1,F(x,1e-7):14:7);
x:=x+0.1
end
end.
<u>Результат</u>
-0.5 -0.3465736
-0.4 -0.2772589
-0.3 -0.2079442
-0.2 -0.1386295
-0.1 -0.0693148
0.0 0.0000000
0.1 0.0693148
0.2 0.1386295
0.3 0.2079442
0.4 0.2772589
0.5 0.3465736
C#, 2000, Андерс Хейлсберг
Java, 1995, компания Oracle (ранее Sun Microsystems)
Delphi, 1995, Андерс Хейлсберг
PHP, 1995, Расмус Лердорф
C++, 1983, Бьёрн Страуструп
Fortran, 1957, Джон Бэкус (Фортран - первый язык программироваиня высокого уровня)
Задание 8
1.
B&(AvB) = B&A v B&B = B&A v B = B&(A v 1) = B
2.
A&(Bv!B) = A&1 = A
3.
A&(AvBvC)=A&A v A&B v A&C = A v A&B v A&C = A&(1vBvC)=A
4.
!(AvBv!C)
Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв