Задачa. Дано ціле число - кількість повних днів, що минули з початку року. Скільки повних тижнів минуло за цей період? Який це день тижня, якщо початок року (1 січня) припало на понеділок (вивести число від 0 до 6, де 0 - неділя, 1 - понеділок .. 6 - субота). Так було, наприклад, в 2019році.

#include
using namespace std;
int main()
{
setlocale(LC_ALL,"rus");
int n;
cout << "Введіть кількість повних днів, що минули з початку року n = ";
cin >> n;
cout << "Кількість повних тижднів - "<< n / 7< cout <<" Числа від 0 до 6, означають 0 - неділя, 1 - понеділок .. 6 - субота" < cout<< "\n День тиждня - " << n % 7<< endl;
return 0;
system("pause");
}

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.

Программа получает на вход натуральное число, затем подсчитывает сумму его цифр и определяет наименьшую из всех цифр, кроме первой.
В соответствии с условием задачи требуется найти наибольшее четырехзначное число, сумма цифр которого равна 29, а наибольшая из трех последних цифр не превышает 7.
Итак, одна из цифр числа известна - это 7. Тогда сумма остальных трех цифр равна 29-7=22, причем две из этих цифр не могут быть меньше 7. Полагаем, что они равны 7 с тем, чтобы получить наибольшую допустимую первую цифру. Получаем 22-7х2=8, т.е. число должно быть равно 8777.
ответ: 8777