Нажмите ссылку и сыграйте в Suspects вместе с пользователем гоки!
https://play.suspects.io​

Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: