Работа в Паскале. Банк начисляет на вклады 5% каждый месяц(т. е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.

uses crt;

var s0,p,sk:real;

   sr,i:integer;

begin

clrscr;

write('Начальная суммa вклада=');

readln(s0);

write('Годовой процент=');

readln(p);

write('Срок вклада в месяцах=');

readln(sr);

sk:=s0;

for i:=1 to sr do

sk:=sk+s0*p/1200;{каждый месяц прибавляется 1/12 часть годового процента от начального вклада}

write('Итоговая сумма=',sk:0:2);

readln

end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.