Нету пожелания по поводу языка, так то пишу на с++. С объяснением.
#include<iostream>#include<fstream>
#include<string> // подключаю библиотеку для работы со строками
#include <sstream> // Подключаю библиотеку для работы с функцией erase
using namespace std;
int main() {
string tt; //заказываю строку
cin >> tt; // читаю строку
while (tt.find('3')<tt.size()){ // пока символ 3 присутствует в строке...
tt.erase(tt.find('3'), 1); // ... мы удаляем его
}
while (tt.find('6')<tt.size()){ // пока символ 6 присутствует в строке...
tt.erase(tt.find('6'), 1); // ...мы удаляем его
}
cout << tt; // вывод строки
return 0;
}
Как то так, причем вводимое число может быть огромным, имеющее больше чем 255 знаков.
A:=2468;
b:=(2468 mod 1000)=468*10=4680
a:=2468 div 1000=2+4680=4682
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.