<em>program qq;
</em>
<em>var x,a,y:real;
</em>
<em>Begin
</em>
<em> writeln('Vvedi a');
</em>
<em> readln(a);
</em>
<em> writeln('Vvedi x');
</em>
<em> readln(x);
</em>
<em> //a:=0.5;
</em>
<em> // x:=4;
</em>
<em> y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);
</em>
<em> writeln(y);
</em>
<em>end.</em>
а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0
Программа:
var x,y:real;
begin
x:=2007;
y:=x/(1+x*x/(3+2*x*2*x*2*x));
writeln('y=',y:5:3);
<span>end.
Блок-схема - в прилагаемом файле.</span>
1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>