Так как вы не указали язык на котором вам нужна программа, то приведу на бейсике (basic) как самый вероятно подходящий. Просто скопируйте текст из приложенного файла в редактор кода и скомпилируйте, что бы получить программу.
Файл сохранен в формате WordPad
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
<span>В чем состоит особенность поля "счетчик"?
</span><span>5. имеет свойство автоматического наращивания.
</span>В чем состоит особенность поля "мемо"?
<span>3. данные хранятся не в поле, а в другом месте, а в поле хранится только указатель на то, где расположен текст;
</span>
Какое поле можно считать уникальным?
<span>1. поле, значения в котором не могут повторятся;
</span>
<span>Ключами поиска в системах управления базами данных (СУБД) называются:
</span><span>3. поля, по значению которых осуществляется поиск;</span>
Var a:real;
begin
write('введите число: ');read(a);
writeln(int(a),' тенге ', round(100*frac(a)),' тиыны');
<span>end.</span>
a = input()
print(a)
##########################