Попробую.
Начало
Ввод количества номиналов N
Объявляем массивов X(N), Y(N)
Цикл по i от 1 до N
Ввод очередного номинала X(i)
Конец цикла по i
Ввод суммы для выдачи S
Подпрограмма сортировки массива X(N) по возрастанию.
Например, пузырьковой сортировкой.
k = 0 ' k - это количество банкнот
Цикл, пока S > 0
Если S < X(1), то ' Если остаток меньше самого маленького номинала
S = 0: k = -1 ' то выдать полную сумму невозможно
Выход сразу из цикла по S
Конец Если
i = N
Цикл, пока X(i) > S
i = i - 1
Конец цикла по X(i)
Y(k) = X(i) ' записываем очередную банкноту в массив Y(N)
S = S - X(i) ' определяем остаток
k = k + 1 ' увеличиваем счетчик банкнот
Конец цикла по S
Если k = 0, то k = -1 ' выдать сумму не смогли
Вывод k
Если k > 0, то ' Если сумму можно выдать
Цикл по i от 1 до k
Вывод Y(i) + " "
Конец цикла по i
Конец Если
Конец
Алгоритм пузырьковой сортировки:
Начало подпрограммы
F = True ' Это булева переменная - признак успешности сортировки
Цикл вечный без всяких условий
Если F = True, то
F = False
Цикл по i от 1 до N-1
Если X(i) > X(i+1), то ' если два соседних числа не отсортированы
Q = X(i) : X(i) = X(i+1) : X(i+1) = Q ' меняем местами эти числа
F = True
Конец Если
Конец цикла по i
Иначе
Выход из Цикла ' Если F = False
Конец Если
Конец вечного Цикла
Конец подпрограммы
Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
9800p. - 100%
х-102,04%
102,04 - 100=2,04%
<span>ответ: 2,04% . Алгоритм с сожалению построить не могу. Извени. </span>
1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.