Если не использовать строки, то решение может быть таким:
var n,k,st:integer;
begin
write('n='); readln(n);
k:=0; st:=1;
while n>0 do
begin
if n mod 10 <> 0 then
begin
k:=(n mod 10)*st+k;
st:=st*10;
end;
n:=n div 10;
end;
writeln(k);
<span>end.
</span>
Флешка, жесткий диск, портал в интернете, и DVD (ди ви ди).
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите строку: ");
string str = Console.ReadLine();// строка
Console.WriteLine("Введите подстроку: ");
string podstr = Console.ReadLine();//подстрока
var temp = str.Split().Where(i => i.Contains(podstr));
Console.WriteLine("Слова содержащие подстроку:");
foreach (var word in temp)
Console.Write(word + " ");
Console.ReadLine();
}
}
}