Спрограммой по с++! будунужно
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
var
a:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(36) - 15;
write(a[i], ' ');
end;
writeln;
end.
//вторая программа
const
n = 8;
var
a:array[1..n] of integer;
i, count3, count4, count5:integer;
begin
randomize;
writeln('Оценки учеников:');
for i := 1 to n do
begin
a[i] := random(3) + 3;
write(a[i], ' ');
if a[i] = 5 then
inc(count5);
if a[i] = 4 then
inc(count4);
if a[i] = 3 then
inc(count3);
end;
writeln;
writeln('Троек - ', count3);
writeln('Четверок - ', count4);
writeln('Пятерок - ', count5);
end.
//третья программа
var
k:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
k[i] := random(36) - 15;
write(k[i], ' ');
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 12 do
begin
k[i] := k[i] * (-1);
write(k[i], ' ');
end;
end.