Const e=0.001;
var a1,a2:real;n:integer;
begin
a1:=0.5;
a2:=sin(a1)/cos(a1)/2;
n:=2;
writeln(n,a2:7:4);
while abs(a2-a1)>=e do
begin
a1:=a2;
a2:=sin(a1)/cos(a1)/2;
n:=n+1;
writeln(n,a2:7:4);
end;
writeln('n = ',n);
end.
Результат:
<span>2 0.2732
3 0.1401
4 0.0705
5 0.0353
6 0.0177
7 0.0088
8 0.0044
9 0.0022
10 0.0011
11 0.0006
n = 11</span>
Во вложении........................................................................
var a,z,x,y:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение z: ');
readln(z);
writeln('Введите значение y: ');
readln(y);
a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));
writeln('a = ',a);
end.
<em>1)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em>begin</em>
<em> read (s);</em>
<em> for i:=1 to length(s) do</em>
<em> begin</em>
<em> if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))</em>
<em> else write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>2)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> if s[1]=' ' then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=1;</em>
<em> end;</em>
<em> for i:=2 to length(s) do</em>
<em> if (s[i]=' ') and (s[i-1]<>' ') then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=i;</em>
<em> end;</em>
<em> for i:=1 to j do</em>
<em> begin</em>
<em> a:=p[i];</em>
<em> p[i]:=0;</em>
<em> while s[a]=' ' do</em>
<em> begin</em>
<em> inc (p[i]);</em>
<em> a:=a+1;</em>
<em> end;</em>
<em> end;</em>
<em> b:=p[1];</em>
<em> for i:=1 to j do</em>
<em> if p[i]>b then b:=p[i];</em>
<em> write (b);</em>
<span><em>end.</em>
<em>3)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> write (s[i]);</em>
<em> while s[i]<>':' do</em>
<em> begin</em>
<em> inc (i);</em>
<em> write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>4)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> while s[i]<>':' do</em>
<em> inc (i);</em>
<em> i:=i+1;</em>
<em> while (s[i]<>':') and (i<=length(s)) do</em>
<em> begin</em>
<em> write (s[i]);</em>
<em> inc (i);</em>
<em> end;</em>
<span><em>end.</em></span></span></span></span>
+
1)Можешь позвонить друзьям в любую минуту
2)У тебя всегда есть как провести досуг, ведь в смартфоне есть игры
3)Ты можешь слушать любую музыку, если есть интернет
4)Теперь не нужна большая фотокамера, чтобы запечатлеть интересные моменты в твоей жизни
5)Твоя личная, персональная информация теперь всегда может быть с тобой
-
1)Если сидишь долго - портится зрение
2)За интернет нужно платить
3) Иногда отвлекает от важных вещей
4)Ты перестаешь выходить на улицу, гулять и дышать свежим воздухом
5)"новая" модель смартфона через год устареет