#include <iostream>
<span>#include <ctime>
</span><span>using namespace std;
</span>int main() {
<span> int n,m;
</span><span> FILE *fpt;
</span><span> cout<<"n = "; cin>>n;
</span><span> fpt=fopen("input.dat","wb");
</span><span> srand(time(NULL));
</span><span>// запись файла
</span><span> for (int i=0; i<n; i++) {
</span><span> m=rand()%8000-3000;
</span><span> cout<<m<<" ";
</span><span> fwrite(&m,sizeof(int),1,fpt);
</span><span> }
</span><span> cout<<endl;
</span><span> fclose(fpt);
</span><span> fpt=fopen("input.dat","rb+");
</span><span> int indf=0,indl=0,vf=0,vl=0,k=0;
</span><span>// чтение файла
</span><span> while (fread(&m,sizeof(int),1,fpt)!=0) {
</span><span> k++;
</span><span> if (!(m%2==0) && (indf==0)) { indf=k-1; vf=m; }
</span><span> if ((!m==0) && (m%2==0)) { indl=k-1; vl=m; }
</span><span> }
</span><span> cout<<"first odd = "<<vf<<" index = "<<indf<<endl;
</span><span> cout<<"last even = "<<vl<<" index = "<<indl<<endl;
</span><span>// обмен первого нечетного и последнего четного
</span><span> if (indf>0) {
</span><span> fseek(fpt,sizeof(int)*indf,SEEK_SET);
</span><span> fwrite(&vl,sizeof(int),1,fpt);
</span><span> }
</span><span> if (indl>0) {
</span><span> fseek(fpt,sizeof(int)*indl,SEEK_SET);
</span><span> fwrite(&vf,sizeof(int),1,fpt);
</span><span> }
</span><span> fclose(fpt);
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>n = 6
<span>4368 2733 1112 2620 1941 753
</span><span>first odd = 2733 index = 1
</span><span>last even = 2620 index = 3
</span>
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
<span>о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4</span>
Если это Exel, тогда в формуле просто заменятся сами ечейки, а формула останется прежней.(советую проверить на любой формуле, т.к. Word бывает разных версий и настроек, но должно быть как я и описал)
Т.е. было допустим =sum(C1:C3) а после копирования =sum(E2:E4)
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var p := BigInteger.One;
for var i := 1 to n do
p *= i;
Writeln(n, '! = ', p)
end.