Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет)) Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
Program Vozrast; var i: integer; begin writln ('Введите возраст: '); readln(i); if (i < 1) or (i > 150) then writeln ('Это туфта, насяльника!'); if (i <> 11) and (i mod 10 = 1) then writeln (i, 'год'); if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then writeln (i, 'года'); if ((i > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then Writeln (i, 'лет'); end.
- Чисел, делящихся на 5, может быть не более одного, иначе сумма двух чисел, делящихся на 5, будет делиться на 5.
- Если выбрано хоть одно число, дающее остаток 1 при делении на 5, то не должны быть выбраны числа, дающие остаток 4 при делении на 5, и наоборот.
- Если выбрано хоть одно число, дающее остаток 2 при делении на 5, то не должны быть выбраны числа, дающие остаток 3 при делении на 5, и наоборот.
Чисел, дающих остаток 0 при делении на 5: 2300/5 - 1700/5 + 1 = 460 - 340 + 1 = 121, и их на 1 больше, чем с каждым ненулевым остатком.
Итак, можно взять не более одного числа, делящегося на 5, не более половины из 240 с остатками 1 или 4, не более половины из 240 с остатками 2 или 3. Тогда можно выбрать не больше, чем 1 + 120 + 120 = 241 число.
Оценка достигается, например, если выбрать все числа с остатками 1 и 3 и число 2000.
3 4 5 по моемутак
Пошаговое объяснение:
Все думаю