А я сделала!
Var c,c1,c2,c3,c4 : integer;
Begin
read(c);
c1:=(c div 1000); {нашли первую цыфру}
c4:=(c mod 10); {нашли вторую цыфру}
c3:=(c mod 100) div 10; {третья цыфра}
c2:=(((c mod 1000)div 100)mod 10); {ну и вторая цыфра}
write(c1,c2,c3,c4);
End.
Думаю так.
Входной файл input.txt
Выходной файл output.txt
Ограничение времени 5 секунд
Пусть sn=cos(an-cos(an-1+cos(an-2-cos(an-3+…)…).
Пусть an=(…(x+2)x+3)x+4)x+…+n)x+n+1.
Требуется для заданных N (1<=N<=200) и Х=1 напечатать выражение, определяющее sn
В единственной строке входного файла задано N.
В единственной строке выходного файла должно содержаться искомое выражение, затем без пробела знак равно и значение выражения с точностью до четырех знаков после точки.
Пример входного файла:
5
Пример выходного файла:
cosx+2)x+3)x+4)x+5)x+6-cosx+2)x+3)x+4)x+5+cos(((x+2)x+3)x+4-cos((x+2)x+3+cos(x+2=-0.4637
X, y, a, b:integer;
Begin
Write(x,y,a,b)
I:=x+y+a+b
Read
End