1.Реализовать программу, позволяющую переводить число из десятичной в восьмеричную систему счисления.
program blyatekzamen
integer, allocatable :: c(:)
real a,b
read(*,*)b
a=b
n=0
do while (a.ne.0)
a=int(a/8)
n=n+1
end do
allocate( c(n))
i=1
do while (b>=8)
b=b/8
a=(b-int(b))*8
b=int(b)
c(i)=a
i=i+1
end do
c(i)=b
write(*,100)(c(i),i=n,1,-1)
write(*,*)
pause
100 format (i1,\)
end
3.Даны две произвольные строки, удалить из них символы, содержащиеся одновременно в обеих строках.
#include<iostream>
#include <string>
#include<math.h>
using namespace std;
int main() {
string a, b;
char c;
int i=0;
cin >> a;
cin >> b;
c = b[0];
do {
if (a.find(c) != -1) {
while ((a.find(c) != -1) || (b.find(c) != -1)) {
if (a.find(c) != -1) {
a.erase(a.find(c), 1);
}
if (b.find(c) != -1) {
b.erase(b.find(c), 1);
i = -1;
}
}
}
else {
i++;
c = b[i];
}
} while (i != b.length());
cout << a << endl << b << endl;
system("pause");
}
