💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Задание 2. 1. Числовая последовательность задана рекуррентной формулой

1. Числовая последовательность задана рекуррентной формулой

Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.

Результаты вычислений вывести в виде таблицы с заголовком.

2. Схема алгоритма решения задачи:

3. Код программы

3.1. На языке Паскаль:

Program Variant_0;

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>