// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
// Программа №1
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
Writeln('сумму с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);
end.
// Программа №2
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Writeln('элементы < 5');
mas.Where(t->t<5).Println;
end.
//Программа №3
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Write('Сумма=');
mas.Where(t->t mod 10 = 3).Sum.Println;
end.
Ответ:
Все в объяснении
Объяснение:
1.
print(str(a) + '+' + str(b) + '=?') #Выведет: 5+3=?
print(str(a) + '+' + str(b) + '=' + str(a+b)) #Выведет: 5+3=8
2.
print('Z(' + str(a) + ')=F(' + str(b) + ')') #Выведет: Z(5)=F(3)
3.
print('a=' + str(a) + ';b=' + str(b)) Выведет: a=5;b=3
*Мы используем функцию str() из-за того, что конкатенация работает только со строчным типом данных
Попробую.
Начало
Ввод количества номиналов 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
Конец Если
Конец вечного Цикла
Конец подпрограммы
100 Кг. = 100% Значит 1 кг. - 1% значит через 21 день дама весит 79 кг что менее 80 кг.