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
Файл с исходным кодом прикреплен, код есть продублированный в коментах, если есть вопросы - пиши в коменты или ЛС, но лучше коменты, что бы если что, кто-то тоже смог разобраться.
З.Ы.
Весь код прокоментирован.
1 шаг создать один слайд
2 шаг написать то что вам нужно
3 шаг доделать призентацию
4 шаг сохранить
1×2^0+0×2^1+1×2^0+1×2^1+1×2^2