//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
170 = 10101010
242 = 11110010
158 = 10011110
70 = 01000110
-50 = 11001110
-90 = 10100110<span>
</span>
О, я как раз около полугода назад для такого (но для себя уж, не для учёбы, просто интерес) программу на Visual Bisic .NET написал:) Счастья тебе, спасибо, что про неё напомнила х)
01010111011011110111001001101100011001000010000001010111011010010110010001100101001000000101011101100101<span>01100010</span>
Держи.Только я незнаю,является ли ноль положительным числом