Program Variant_0;. WriteLn('Лабораторная работа №4_2');

Uses WinCRT;

Var s, k, a1, a2, a, n: Word;

Begin

WriteLn('Лабораторная работа №4_2');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных:');

Write('a1=');

ReadLn(a1);

Write('a2=');

Readln(a2);

Write('n=');

ReadLn(n);

WriteLn;

WriteLn('----------------');

WriteLn(' k a s');

WriteLn('----------------');

s:=a2+a1; {исходная сумма}

For k:=3 To n Do

Begin

a:=a2+a1; {очередное слагаемое}

s:=s+a; {очередная сумма}

a1:=a2;

a2:=a;

WriteLn(k:3, ' ', a:3, ' ', s:3);

End;

WriteLn('----------------');

WriteLn;

End.

3.2. На языке Си:

#include <stdio.h> //директивы препроцессора

#include <conio.h>

#include <math.h>

Int main()

{

int a, a1, a2, k, n, s; //описание переменных

printf("\nЛабораторная работа №4_2");

printf("\nВариант №0");

printf("\nПО-11-1");

printf("\nПупкин Василий\n");

printf("\nВвод исходных данных:\n");//ввод исходных данных

printf("\n a1=");

scanf("%d", &a1); //первый член последовательности

printf("\n a2=");

scanf("%d", &a2); //второй член последовательности

printf("\n n=");

scanf("%d", &n); //количество членов последовательности

printf("\n-----------------");

printf("\n k a s ");

printf("\n-----------------");

s = a1 + a2; //начальное значение суммы

// k - номер очередного члена последовательности

for (k=3; k<=n; k++)

{

a = a1 + a2; //очередное слагаемое

s += a; //очередная сумма

a1 = a2;

a2 = a;

printf("\n%3d %3d %3d", k, a, s);

}

printf("\n-----------------\n");

Return 0;

}

3.3. На языке Java: