Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки і санітарно- гігієнічних норм
СДЕЛАТЬ В ТАБЛИЧНОМ ПРОЦЕСОРРЕ

Задача 1. Банк.
На скільки років потрібно покласти в банк суму have, щоб отримати суму
want, якщо банк нараховує 24% річних?
Задача 2. Скарби.
Капітан Флінт та його пірати (K) знайшли скарб із N монет Капітан забрав
собі частину скарбу, що не перевищує половину Кожен із наступних піратів вчинив
так само На скількох піратів вдалось розподілити скарб таким чином? Чи був бунт?
(якщо обділеними залишилось більше половини піратів)
Задача 3. Яблука.
Яблука складені на прилавку пірамідкою: зверху одне, далі два, три, чотири і
т.д. Скільки яблук на прилавку, якщо всього N рядів?
Задача 4. Яблука-2.
Скільки ящиків потрібно для зберігання цих яблук, якщо у ящик поміститься
K яблук у висоту і M у ширину?
Задача 5. Юні підприємці.
В учнів було S грн. Пляшка з соком коштує price грн, порожня пляшка коштує
empty грн. Складіть алгоритм, за яким можна визначити, скільки пляшок соку
вип'ють учні, якщо вони повертатимуть порожні пляшки й на отримані гроші
купуватимуть повні?

Ну, без понятия на каком языке писать - задача не решаема.

Однако, на "метаязыке":

задать массив МАТРИЦА[5,5];

получить ввод в ВВОД;

если ВВОД = 's', то {

СУММА = 0;

X = 1;

продолжать, пока X <= 5 {

СУММА = СУММА + МАТРИЦА[X,X];

X = X + 1;

}

вывести СУММА;

} иначе, если ВВОД равен 'a' или 'b' или 'c', то {

X = 1;

продолжать, пока X <= 5 {

СреднАрифм = 0;

Y = 1;

продолжать, пока Y <= 5 {

СреднАрифм = СреднАрифм + МАТРИЦА[X,Y];

Y = Y + 1;

}

вывести СреднАрифм / 5;

X = X + 1;

}

} иначе, если ВВОД = 'm', то {

МИНИМУМ = МАТРИЦА[1,1];

МАКСИМУМ = МАТРИЦА[1,1];

X = 1;

продолжать, пока X <= 5 {

Y = 1;

продолжать, пока Y <= 5 {

если МАТРИЦА[X,Y] < МИНИМУМ  то МИНИМУМ = МАТРИЦА[X,Y];

если МАТРИЦА[X,Y] > МАКСИМУМ  то МАКСИМУМ = МАТРИЦА[X,Y];

Y = Y + 1;

}

}

вывести МИНИМУМ;

вывести МАКСИМУМ;

}

1) описание массива должно быть константным, запись n+20 - переменная. Изменить: задать n+20 в виде константы.

2) будет куча ошибок

а) i: Byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной C, хотя она используется (If C[i] Mod 10=0 Then p:=p+1;)