var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
Static void CountArray(int[] a)
{
var s = 0;
var k1 = 0;
var k2 = 0;
foreach(var t in a)
{
if (t > 0)
{
s += t;
k1 += (t % 2 == 1) ? 1 : 0;
k2 += (t > 10) ? 1 : 0;
}
}
Console.WriteLine($"{s} {k1} {k2}");
}
Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity