Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
Div - это целочисленное частное, т.е. если твое число нацело не делится на какое то другое число, опирацией div ты получишь целочисленное частное, например: 11 div 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 div 5 = 10
mod - это целочисленный остаток, рассмотрим тот же пример, 11 mod 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 mod 5 = 11- 10= 1
1. 26
2. 6
3. 50
4. 1
5. 1
6. 1
7. 8
Ответ: 7
Нy и мне нyжно написать 20 символов
2^5бит требуется для всех оттенков*96*68/(1024*8*1024)и делением переводим биты в мегабайты
Итого: 0,025 Мбайт
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.