Ответ:
программа Paint. Эта программа очень нужна была обществу, даже сейчас она остаётся незаменимой. На Paint можно рисовать, писать, составлять что либо и просто развлекаться.
Информацией,команды из окружающего мира называются информацией,
#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>
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
