For35. Дано целое число N (> 2). Последовательность целых чисел AK определяется следующим образом: A1 = 1, A2 = 2, A3 = 3, AK = AK-1 + AK-2 — 2*AK-3, K = 4, 5, … . Вывести элементы A1, A2, …, AN.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program For35; var Ak,Ak1,Ak2, Ak3 :Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Writeln('Значения функции:'); Writeln('A(1)=1'); Writeln('A(2)=2'); Writeln('A(3)=3'); Ak1:=1; Ak2:=2; Ak3:=3; For i:=4 to N do begin Ak:=Ak3+Ak2-2*Ak1; Writeln('A(',i,')=',Ak); Ak1:=Ak2; Ak2:=Ak3; Ak3:=Ak; end; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #include int main(void) { int n; printf("N:"); scanf ("%i", &n); float a1=1,a2=2,a3=3; printf("A(1)=%f\n",a1); printf("A(2)=%f\n",a2); printf("A(3)=%f\n",a3); int i; float ak; for (i =4; i<=n; ++i){ ak=a3+a2-2*a1; printf("A(%i)=%f \n",i,ak); a1=a2; a2=a3; a3=ak; } return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int n; cout << "N:"; cin >> n; float a1 = 1, a2 = 2, a3 = 3; cout<< a1<<" "; cout<< a2<<" "; cout << a3 << " "; int i; float ak; for (i = 4; i <= n; ++i) { ak = a3 + a2 - 2 * a1; cout<< i<<" "<< ak<<" "; a1 = a2; a2 = a3; a3 = ak; } return 0; } |
blablabla
суки на c# напишите
C# please es el chem dzgum
int A1 = 1, A2 = 2, A3 = 3, Ak, n;
n=Convert.ToInt32(Console.ReadLine());
for(int i = 0; i < n; i++)
{
Ak = A3 + A2 — 2 * A1;
Console.WriteLine(Ak);
A1 = A2;
A2 = A3;
A3 = Ak;
}