Иван решил накопить на отпуск откладывая каждый день на рубль больше, чем вчера. Начало отсчета – 1 рубль. Разработайте программу расчета накоплений Ивана. Предоставьте Ивану возможность ввести номер дня эксперимента.
Пример ввода/вывода:
Какой сегодня день эксперимента (1-365)?
5 Ваши накопления составляют 15 рублей

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

1) 28

2) 6

3) 5

4) 1

5) 7

6) 27

итого:

1, 6, 5, 2, 3, 4.

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег