Спрограммой по с++! будунужно
1)
с некоторого момента некоторое количество дней. сколько полных недель с этого же момента?
выведите целое число недель.

входные данные выходные данные
10
1
15
2

2)
анатолий — начинающий некромант, но уже обзавёлся своим собственным легионом нежити. в него входит двузначное количество скелетов, где a — количество десятков в этом числе, а b — количество единиц. для наступления на столицу королевства анатолий, как хороший тактик, решил разбить свою армию на отряды из k скелетов.

разумеется, количество скелетов может не поделиться нацело на k, поэтому каких-то скелетов придется оставить в штабе. посчитайте, сколько таких скелетов будет.
требуется вывести одно целое число — ответ на .

входные данные выходные данные
4 2 11
9
0
4 2 6
3)дан порядковый номер дня года (отсчет идет с 1-го января). требуется вывести номер дня недели этого дня, если 1 января — понедельник. (запрещено использовать команду if)
.
формат выходных данных

выведите номер дня недели для данного дня года (понедельник — 1, вторник — 2, воскресенье — 7).
входные данные выходные данные
1
1
5
5
9
2

1) Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:

Г) локальной компьютерной сетью;

2) Глобальная компьютерная сеть - это:

Б) совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему;

3) Наибольшие возможности для доступа к информационным ресурсам обеспечивает подключения к Интернету;

В) постоянное соединение по оптоволоконному каналу;

4) Сетевой протокол - это;

А) набор соглашений о взаимодействиях в компьютерной сети;

6) Моделирование - это:

А) процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;

7) Модель - это:

В) материальный или абстрактный заменитель объекта, отражающий его пространственно-временные характеристики;

8) Натурное моделирование - это;

В) моделирование, при котором в модели узнается какой - либо отдельный признак объекта-оригинала;

9) Математическая модель объекта - это:

А) совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;

10) Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:

Г) графические информационные модели;

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.